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»REM_ 
IDENTIFICATION 
PRODUCT 1D:  AC=TO97A=MC 
PRODUCT TITLE: CVTSCAO TSVOS CTRL LT3 
AUTHOR: DICK GORDON 
MAINTAINER: SCOTT SNOWDON 
DATE: MARCH 08, 1982 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1982,1982 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 


SEQ 0001 
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1.0 GENERAL INFORMATION 
1.1. PROGRAM ABSTRACT 


ah 1S_A PDP=11/23 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 
OF TSVOS_ MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP=11//23 SYSTEM 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). : THESE RE ENVIROMENT 


APER 
TAPE. FOR A COMPLETE a tee OF THE RUNTIME Senvices, Pleas 
TO THE XXDP+ USER'S MANUA THERE IS A BRIEF + aa 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT 


1.2 SYSTEM REQUIREMENTS 


PDP=11/23 PROCESSOR AND MEMO 

CAUTION: DIAGNOSTIC wre 33K WORDS OF MEMORY 

(28K USEABLE I.E. 4K FOR A 

TSVO5 S taent SUBSYSTEM (DRIVE AND CONTROLLER) 

CONSOLE TERMINAL 

PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 
PDP=11 DIAGNOSTIC LOADER/MONITOR (XXDP+) 


1.3 RELATED DOCUMENTS AND STANDARDS 


DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


1. CHQUS XXDP+ USERS MANUAL; DOCUMENT NUMBER AC-F348E-MC 
DATE: 14 JULY 1980. 


2. TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSV05-UG-001 
DATE: AUGUST 1982 


3. TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVO5-TM-001 
DATE: AUGUST 1982 


4. TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSVOS5~IN-001 
DATE: AUGUST 1982 

1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

FUNCTIONAL emit CENTRAL PROCESSOR AND MEMORY 

FUNCTIONAL CONSOLE TERMINA 


FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP+) 
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1.5 ASSUMPTIONS 

ALL HARDWARE EXCEPT THE HARDWARE rOnt TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPO 

on thee BEING USED ON THE TS05 TRANSPORT IS A KNOWN GOOD REEL 
CVTSAA AND CVTSBA HAVE SUCESSFULLY RUN. 
2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO ThE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME a 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL vers ARE 
CONSIDERED hy BE ACTIVE AT START TIME 

DROP DEACTIVATE A _UNIT 

PRINT PRINT STATISTICAL eirrion 4. (IF IMPLEMENTED 
BY THE DIAGNOSTIC = SECTI 

DISPLAY FYPE A LIST OF ALL DEVICE INFORMATICN 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE ‘‘STA*’ INSTEAD OF ‘‘START"’. 


2.1.1 OPERATOR COMMANDS 


a TSVOS DIAGNOSTIC IS A PDP=11/23 DIAGNOSTIC SUPERVISOR 3 ark bg 
PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 
CHQUS XXDP+ USERS MANUAL ,DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES. 


BOOT THE DIAGNOSTIC MEDIA 


eR VISC?? 
Rerabeae RUN-TIME SERVICES REV D. APR 79 


s#esTS¥05 LOGIC DIAGNOSTIC#««#« 
UNIT IS TSVO5S 


SEQ 0004 


——_-—— 
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>DR 
2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY a te OPERATION. 
L_ COMMANDS. OF T - LEGAL 


THESE SWITCHES ARE APPENDED TO THE LEGAL 


1 


ALL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EAC 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED ay "“ppppo"*. 


SWITCH EFFECT 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 


THE L baste LIST IS A STRING OF TEST 


EXAMPLE 


~ /TESTS:1:5:7=10, 


NUMBERS, FOR 

THIS LIST are CAUSE TESTS 1,5,7,8,9,10 TO 

BE RUN. OTHER TESTS WILL NOT BE RUN. 
/PASS:DDDDD EXECUTE pDbbp PASSES (DDDDD = 1 


/FLAGS:FLGS in siction a3. FLAGS. 
/EOP:DDDDD REPORT END OF PASS yo Be “ds EVERY 


DDDDD PASSES ONLY. 
THE LIST. 


EXAMPLE OF SWITCH USAGE: 
START/TESTS:1=5/PASS: 1000/E0P: 100 


TO 64000) 
FLAGS ARE DESCRIBED 


DDD = 1 TO 64000) 
/UNITS:LIST HS ae 9h ome THOSE UNITS SPECIFIED 


T EXAMPLE = /UNITS:0: 
USE UNITS 0,5, iO: 11,12 (UNIT NUMBERS = 


5:10-12 
0-63) 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 


TESTS PASS FLAGS EOP UNITS 


START x xX 


zx 
m 
n 
z 
avy 
Pa 
= 
<< OC 
= 


2.3 FLAGS 


x 
xX 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 


LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 





SEQ 0005 
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CLEARED UNTIL yg tthe oh atten THE FLAGS SWITCH. FLAGS 

AR® ALSO CLEARED AFTER A COMMAND UNLESS SET USING THE 

FLAG SWITCH. THE TFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

-¥ FLAGS. WITH THE EXCEPTION * i START AND ZFLAGS COMMANDS, 
(0 COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 

CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR = CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST hay (FIRST LEVEL plea 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE *BELL’* ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A "BELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS : LOE : IER:B0E 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES wit PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING ‘'CHANGE HW (L) ? 

YOU MUST ANSWER ‘'Y'' AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN "‘PRELOADED*® USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER'S AL). WHEN YOU ANSWER THIS 
QUESTION WITH A “'Y'', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE "‘CHANGE HW?'* QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A "'N’’ (NO) RESPONSE TO THE “‘CHANGE HW?"' QUESTION, THE DIAGNOSTIC WILL 


SEQ 0006 
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RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 


TSBA/TSDB = 172520, VECTOR = 224 


ON A 

THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. | A 
VALUE, IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 

DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED ASA 
RESPONSE. A ““(D) IN A QUESTION, INDICATES THAT A DECIMAL NUMBER IS 

REQUIRED” AS A RESPONSE._AN.““(O)'" INDICATES. AN OCTAL_NUMBER 1S BEING 

SOLICITED: an INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 


# UNITS (D) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


~~ DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSDB REGISTER> 


VECTOR (0) 224 ? Seto ADDRESS OF INTERRUPT 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE ‘# UNITS?°* QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED a fortnt BEGINNING AT 0. UP TO FOUR UNITS CAN BE 

SELECTED FOR TESTING AS FOL 
UP TO 4 TSVOS CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A oh al 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN N SOME DIA ve "SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY a x... (L) 

IF eas WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

“Y'", THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTIONS ARE ASKED ON A_ START, RESTART, OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N ? <TYPE “'Y** TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY Se © LOGIC 
TESTS USE MULTIPLE 
ITERATIONS.> 


2.6 EXTENDED P-TABLE DIALOGUE 


SEQ 0007 
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A_TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMP 
S TABLE IS TO 


ONS FOR CH. 

TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 
A_MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO verre A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 
A DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH EIGHT UNITS (SUB=-DEVICES) gin TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 T yor 7._ THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS*c LLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 

TO BUILD A TABLE FOR ONE XY11 WITH” EIGHT UNITS. 


# UNITS (D) ? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?_ 1<CR> 
Q-FACTOR (0) 1? O<CR> 


UNIT 3 
CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0? <CR> 


UNIT 4 
CSR ~ set? (0) ? se 
SUB-DEVICE # (0) ? 3<C 
Q-FACTOR (0) 0 ? "chs 


UNIT 5 
CSR ~ ae (0) i. 160000<CR> 
SUB-DEVICE # (0) 4<CR> 
Q-FACTOR (0) 0 ? * crs 


UNIT 6 
CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 
CSR ~ ot (0) 160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 





SEQ 0008 


ap a DOCUMENTATION MACRO M1113 25-MAY=82 09:19 PAGE 4-6 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON=DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


et AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
els -—o THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


# UNITS (D) ? 8<CR> ‘ 


UNIT 1 

CSR ADDRESS (0) ? tro 
SUB-DEVICE # (0) ?. 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ?_ 2=5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? oo 
SUB=DEVICE # (0) ? 6,7 
Q-FACTOR (0) 0 ? 1<ch> 


AS YOU CAN SEE _IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 


E ON AN EVEN BOUNDARY.) THE es ADDRESSES AND Q-FACTORS FOR 


T Ss 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


# UNITS (D) ? 8<CR> 
UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 


SUB-DEVICE # ‘i ? A i woes 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 





SEQ 0009 
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K 1 


| A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 
| 2.7 QUICK START-UP PROCEDURE (XXDP+) 

| : TO START-UP THIS PROGRAM: 

| 1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE *'R NAME’, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE *'START’’ 

5. ANSWER THE "‘CHANGE HW'* QUESTION WITH ‘‘Y'’ 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "'CHANGE SW’* QUESTION WITH ‘'N’’ 
WHEN YOU FOLLOW THIS PROCEDURE ys WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 
3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 
go ARE THREE LEVELS OF ERROR Ry te rnd THAT MAY BE ISSUED BY 

DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 

ARE ALWAYS PRINTED UNLESS THE ATER” and IS SET (SECTION 2.3). 
THE GENERAL ERROR MESSAGE IS OF THE FORM 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC :XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = — TYPE cere FATAL, DEV FATAL, HARD OR SOFT) 


NUMB OR 

UNIT NUMBER = 0 = N (N IS LAST UNIT IN PTABLE) 

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. pee scr ALWAYS PRINTED UNLESS 
THE “‘IER'’ OR “‘IBR'' FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE A +, AYS 
PRINTED UNLESS THE “‘IER"’, “‘IBR*’ OR “*IXR’’ FLAGS ARE S T (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 


Toe Ran sla l SP e Pin Amc PE IET 


SEQ 0010 
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BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


ERROR MESSAGE EXAMPLE 1 


THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 

TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS F H 

a REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 


TST: 016 FIFO EXERCISER TEST 
CVTSC HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNALS IN WORD #8: = DESIGNATOR <BIT #> 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> i[RWD<2> 
IRESV2<14> IIDENT<11> IHER <8> JIONL<5> IFBY<1> 
IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<0> 

TAPE BUS SIGINALS IN WORD #9: 

DATMIS<7> ILW<6> OUTRDY<5> INRDY<4> 

MESSAGE BUFFER ADDRESS = 047352 

MESSAGE BUFFER CONTENTS: 
WORD #0 EXPD: 100020 CV: 100020 xOR: SR008 


WORD #9 EXPD: 000074 RECV: 000034 XOR: 000040 


ERROR MESSAGE EXAMPLE 2 nda % 


THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE,IN THIS 
iar oe eertniae ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 


CVTSC HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
I 8 oy ll AFTER SPACE RECORDS COMMAND 


SET: SC,SSR 
TERMINATION CLASS CODE = UNRECOVERABLE ERROR 


PACKET ADDRESS = 026420 
PACKET WORD # = 140010 
PACKET WORD # = 000010 
PACKET WORD # = 000000 
PACKET WORD # = 000024 


SEQ 0011 
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SEQ 0012 
ERROR MESSAGE EXAMPLE 3 
THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 


CVTSC a ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 

MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPD: 000812 RECV: 000112 xOR: 000200 

4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE hEOP SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


SUCCESSFUL RUN EXAMPLE (PDP-11/23) 


DR>STA/FLA:PNT : HOE 

UNITS (D) ? 1 

UNIT 0 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 


THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TwO 
alors ON WHICH ARE ‘PRINT EACH TEST NBR AS EXECUTED'’ AND ‘HALT ON 


TST: 007 INITIALIZE #4 TEST 

TST: 002 OFF-LINE 2 AND REWIND TEST 
TST: 003 BASIC WRITE DATA TEST 

TST: 004 BASIC READ “e TEST 


TST: 007 WRITE DATA RETRY TEST 
TST: 008 WRITE TAPE MARK TEST 
0 ERRORS 


NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT 
HAS BEEN SPECIFIED WITH THE ‘‘/PASS:"* SWITCH. 


PROGRAM RUN TIMES 


og ae _ TIMES = THE om: ARE LISTED BELOW. THESE FIGURES ARE 
PROCESSOR WITH A LA34 CONSOL cE. 


TIMING WAS DONE ON A PDP=11/23 





—___-————-- 


' 


| 
| 
| 
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THE PROGRAM RUNS IN TWO MODES; NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO las heii IN THE 
DEFAULT MODE EACH TEST IS a i teaat BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A ‘'Y’’ (YES). 


TEST N/I NUMBER DEF 
ee SECS. ITER a 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 8 IN ONE COMMAND: 


7 MINUTES 
DEFAULT 31 MINUTES 


5.0 DEVICE INFORMATION TABLES 


WHENEVER THE PROGRAM IS STARTED, VIA THE STA(RT) COMMAND, 
oie ~ “yet REQUESTS THE FOLLOWING P-TABLES PARAMETER 


CHANGE HW (L) 2?) $e 8 


# UNITS (D) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSDB REGISTER> 


VECTOR (0) 224 ? rl ADDRESS OF INTERRUPT 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE ‘# UNITS?°* QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 

SELECTED FOR TESTING. 


IN ADDITION, ON A_ START, RESTART OR CONTINUE THE SUPERVISOR 
= yp hy CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 


SEQ 0013 





REE Ts Se ae ‘/.# 
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CHANGE SW (L) ? 


INHIBIT ITERATIONS (L) N ? 


6.0 TEST SUMMARIES 


INITIALIZE #4 TEST 


THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 
(I.E. LOOPBACK ENABLED, FORCING WRONG PARITY, INVERTING SENSE OF 
EXTENDED FEATURES SWITCH, ETC.) 


OFF-LINE AND REJECT REWIND 


THIS TEST VERIFIES BASIC TAPE-MOTION COMMAND DECODING AND BASIC 
OPERATION OF THE REWIND POSITIONING COMMAND. IT DOES NOT 
NECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN 
ARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS mar 

CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST 
srourates. REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST 


BASIC WRITE DATA 


THIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMAND OPERATES 
PROPERLY, UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY 
WRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS 
LIMITED TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH 
THE CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS. 


ane ae tar te” maaan eae Ten eee te rete eee 


UTION 
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS preg st iene 
op ge Ay ge rt RUNNING ON A 11/2358 SYSTEM WITH MORE T 


REREAAAEEAEEAARERAARARERERARAEEREAAERERAAEREREEEERARAERREEAAERERRAEERKKEEE 


BASIC READ DATA (FORWARD AND REVERSE) 
THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE 
COMMAND T COMBINATIONS 0 


BY RY 
AND BYTE=SWAP CONTROL ARE USED. THIS TEST 
OF COURSE, FURTHER eveRinies THE WRI TE DATA A COMMAND By ACTUALLY 
READING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER 
TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH 
LONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA 


SEQ 0014 


USER DOCUMENTATION 


TEST 5: 


TEST 6: 


TEST 7: 


TEST 8: 
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BUFFER ADDRESSES, pie CODES IN THE MODE FIELD OF THE BASIC 
READ COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY. 


= atte it oll el gee Th le 2 ee Me te en CEO TTR 


CAUTION 
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES(16-21) 
ARE ONLY CHECKED _ EN RUNNING ON A 11/238 SYSTEM WITH MORE THAN 
128K WORDS OF MEMORY! 


REAAARAERERREREAARARERAAARRRARAAARARRAAAREREEERAAAAERARRARRERERARAAREE 


SPACE RECORDS 


THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 

RECORDS REVERSE POSITION COMMANDS OPERATE PROPERLY WHEN SPACING 

OVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS 

IS VERIFIED IN A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST 

SHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL 
RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH 

OF THE fue ciset be SATA IS ENTIRELY WRITTEN WITH RECORDS 


POSITION 
oy SPACING OPERATION, THE TAPE POSITION IS VERIFIED BY READING 
THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH 
THE EXPECTED RESULT. 


REREADS 


THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT 
COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
DATA BUFFER BOUNDRIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY 
SPACE IS AVAILIABLE), AND BYTE-SWAP (SWP) AND OPPOSITE (OPP) 
Sadi S ARE USED. ALSO TESTED ARE PROPER TERMINATIONS ON 
EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD 
LENGTH SHORT, READ REVERSE AT BOT, pLLeoR DATA BUFFER ADDRESSES, 
AND DATA BUFFERS IN NONEXISTENT MEMOR 


ee Satinnaamenmttnie ietamenene cies encesnnanatiibetidiniaidineeenliinedaainnaital 


CAUTION 
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS peste 
ARE ONLY CHECKED — RUNNING ON A 11/23B SYSTEM WITH MORE T 
128K WORDS OF MEMORY 


PreCreeTrerrerrrTterrritrttitrititiittitititiTtiiiiiititiiitiiiitiii Tit 


WRITE DATA RETRY 


THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


WRITE/READ TAPE MARK 


THIS TEST VERIFIES THAT THE ag TAPE MARK COMMAND OPERATES 
PROPERLY. IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE 
oY CHECKING THAT THE READ AND SPACE RECORDS wget 4h ECT THE 
TAPE MARK. IN ag Ue? SINCE WRITE TAPE MARK IS THE FIRST 
SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED, IT IS VERIFIED 
THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT 


SEQ 0015 
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SEQ 0016 


FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED. 


7.0 MAINTENANCE HISTORY 


REVISION A = MARCH 1982 
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SEQ 0017 


2 -TITLE TSV2 = PROGRAM HEADER 
i -SBTTL PROGRAM HEADER 
10 -MCALL SVC 
11 000000 svc ; INITIALIZE SUPERVISOR MACROS 
12 ENABLE LC 
13 «NLIST BEX,CND 
19 000000 -ENABL ABS,AMA 
20 002000 -=2000 
21 002000 BGNMOD TSV2 
002000 TSV2:: 
22 
23 p++ 
24 3; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
2 : THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
Af 
29 002000 POINTER BGNSW,BGNSFT,BGNAU,BGNDU, BGNRPT 
30 002000 HEADER CVTSC.A,0,655.,0 
002000 LSNAME: : s DIAGNOSTIC NAME 
002000 103 ASCII /C/ 
002001 126 ASCII /V/ 
002002 124 ASCII /T/ 
002003 123 ASCII /S/ 
002004 103 ASCII /C/ 
002005 000 -BYTE 0O 
002006 000 -BYTE O 
002007 000 -BYTE O 
002010 LSREV:: REVISION LEVEL 
002010 ~=101 ASCII /A/ 
002011 LSDEPO:: 70 
002011 060 ASCII /0/ 
002012 LSUNIT:: sNUMBER OF UNITS 
002012 000000 -WORD 0 
002014 LSTIML:: sLONGEST TEST TIME 
002014 001217 -WORD 655. 
002016 LSHPCP:: sPOINTER TO H.W. QUES. 
002016 112340 -WORD LSHARD 
002020 LSSPCP:: sPOINTER TO S.W. QUES. 
002020 112472 -WORD LS$SOFT 
002022 LSHPTP:: sPTR. TO DEF. H.W. PTABLE 
002022 002146 -WORD LSHW 
002024 LSSPTP:: sPTR. TO S.W. PTABLE 
002024 002156 -WORD L$SW 
002026 LSLADP:: ;DIAG. END ADDRESS 
002026 113004 -WORD LSLAST 
002030 LSSTA:: sRESERVED FOR APT STATS 
002030 000000 «WORD O 
002032 L$CO:: 
002032 000000 -WORD 0 
002034 LSDTYP:: sDIAGNOSTIC TYPE 
002034 000000 -WORD 0 
002036 LSAPT:: ;APT EXPANSION 
002036 000000 -WORD 0 
002040 LSDTP:: ;PTR. TO DISPATCH TABLE 


002040 002124 .WORD LSDISPATCH 





F 
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PROGRAM HEADER 


002120 





000000 
000000 
000000 


003 
003 


000000 
000000 


000000 
003372 
022754 
000000 
000000 
022442 
022540 
000000 
003400 
104035 
000000 
021646 
022726 
022646 
021636 
000000 
000000 
000000 


LSPRIO:: 
LSENVI:: 
LSEXP1:: 
LSMREV: : 


LSEF:: 


LSSPC:: 


- WORD 
«WORD 
» WORD 


-BYTE 


- WORD 
» WORD 


» WORD 


LSDEVP:: 
LSREPP: : 
LSEXP4:: 
LSEXPS5:: 


LSAUT:: 
LSDUT:: 
LSLUN:: 


- WORD 
«WORD 
- WORD 
- WORD 
«WORD 
- WORD 
- WORD 


LSDESP:: 
LSLOAD:: 


LSETP:: 
LSICP:: 
LSCCP:: 
LSACP:: 
LSPRT:: 


» WORD 
EMT 

- WORD 
«WORD 
- WORD 
- WORD 
- WORD 


LSTEST:: 


LSDLY:: 
LSHIME: 


. WORD 
. WORD 
” WORD 


DIAGNOSTIC RUN PRIORITY 
sFLAGS DESCRIBE HOW IT WAS SETUP 
sEXPANSION WORD 
SVC REV AND EDIT # 
CSREVIS) “ 
CSEDIT 
/vIAG. EVENT FLAGS 


0 


0 
0 
: POINTER TO DEVICE TYPE LIST 
L$DVTYP 
sPTR. TO REPORT CODE 
LSRPT 
0 
0 
:PTR. TO ADD UNIT CODE 
LSAU 
PTR. TO DROP UNIT CODE 
L$DU 
0 sLUN FOR EXERCISERS TO FILL 
POINTER TO DIAG. DESCRIPTION 
LSDESC 
sGENERATE SPECIAL AUTOLOAD EMT 
ESLOAD 
0 POINTER TO ERRTBL 
:PTR. TO INIT CODE 
LSINIT 
:PTR. TO CLEAN-UP CODE 
LSCLEAN 
:PTR. TO AUTO CODE 
LSAUTO 
:PTR. TO PROTECT TABLE 
LSPROT 
0 TEST NUMBER 
0 DELAY COUNT 
0 :PTR. TO HIGH MEM 


SEQ 0018 










DISPATCH TABLE 


32 
33 


37 
39 002122 
22 


BURAK 


TSV2 = PROGRAM HEADER 


000010 
023536 


104714 
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SEQ 0019 


-SBTTL DISPATCH TABLE 


: THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 8 


-WORD 8 
LSDISPATCH:: 
eWORD T1 
-WORD T2 
~ WORD T3 
WORD 14 
-WORD TS 
-WORD 16 
WORD 17 


Pa ae ca ee ee ret ee ee 
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DEFAULT HARDWARE P=TABLE , SEQ 0020 
42 .SBTTL DEFAULT HARDWARE P=TABLE 
44 :+ 
45 : THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF 
46 ; THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
47 IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 
49 002144 r BGNHW :DEFAULT HARD=P=TABLE 
002144 000003 . WORD Pf OUBO=LSHW/2 
002146 LSHW:: 
002146 DFPTBL:: 
51 002146 172520 .WORD 172520 : 1ST (OF 2) REGISTERS. 
52 002150 000224 [WORD 224 ; INTERRUPT VECT 
53 002152 000200 “WORD PRIO4 : INTERRUPT PRIORITY. 





L10000: 


I 2 
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SOFTWARE P-TABLE SEQ 0021 
56 .SBTTL SOFTWARE P=TABLE 
H “ 
59 : THE SOFTWARE P=TABLE CONTAINS THE VALUES OF THE PROGRAM 
60 : PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
62 002154 : BGNSW SFPTBL 
002154 000004 .WORD £10001-L$Sw/2 
002156 L$SW:: 
, 002156 SFPTBL:: 
64 002156 000000 TRANSTST:: .WORD 0 : ENABLE TEST OF TRANSPORT(S) IF =1 
65 002160 000000 NOITS:: “WORD 0 : INHIBIT ITERATION OPTION. 
' 66 + eee O = ITERATE. 
67 3 «NZ = INHIBIT ITERATE. 
68 002162 000017 LERRMAX: : .WORD 15. : LOCAL (PER TEST) ERROR LIMIT 
69 002164 000310 GERRMAX: : .WORD 200. =; GLOBAL (PER UNIT) ERROR LIMIT 
70 002166 ENDSW 
002166 L10001: 


71 
72 002166 ENDMOD 


Ayes ap age ne ee ee & 
| TSV3 = GLOBAL AREAS MACRO M1113 25-MAY=82 09:19 PAGE 13 
SOFTWARE P=TABLE seo 0022 


7 TITLE TSV3 = GLOBAL AREAS 
8 -SBTTL GLOBAL EQUATES SECTION 
19 
20 002166 BGNMOD TSV3 
002166 TSV3:: 
5) 
$3 -SBTTL GLOBAL EQUATES SECTION 
25 p++ 
26 3; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
sf : ARE USED IN MORE THAN ONE TEST. 
29 ; 
33 002166 EQUALS 3; GET STANDARD EQUATES. 
; BIT DIFINITIONS 
100000 BIT15== 100000 
040000 B1T14== 40000 
BIT13== 20000 
BIT12== 10000 
BIT11== 4000 
B1T10== 2000 
BITO9== 1000 
BITO8== 400 
BITO7== 200 
BIT06== 100 
BITO5== 40 
B1T04== 20 
BITO3== 10 
BITO2== 4 
BITO1== 2 
BITO00== 1 
1T9== BITO9 
IT8== BITO8 
IT7== BIT07 
IT6== BITO6 
ITS== B1T05 
IT4== BITO4 
IT3== BIT03 
IT2== BIT02 
IT1l== B1T01 
IT0== BIT00 
EV FLAG DEFINITIONS 


ENT 
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
F .START== 32. 3 START COMMAND WAS ISSUED 


F -RESTART== 31. 3 RESTART COMMAND WAS ISSUED 
F CONT INUE== 30. 3 CONTINUE COMMAND WAS ISSUED 
F “NEWs= 29. : A NEW PASS HAS BEEN STARTED 
EF. PWR= 28. 2 A POWER-FAIL/POWER-UP OCCURRED 


see. MMMmMime. se) OOOWWIOIOIoaaw 
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GLOBAL EQUATES SECTION 


34 
35 002166 


000250 
177572 


172516 


2 
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; PRIORITY LEVEL DEFINITIONS 


PR107== 340 
PRI06== 300 
PRI loses 240 
PRiOG== 200 
PRIO3== 140 
PRIO2== 100 
PRIO1== 40 
PRIOO== 0 
‘OPERATOR FLAG BITS 
EVL== 4 
LOT== 10 
ADR== 20 
IDU== 40 
ISR== 100 
UAM== 200 
BOE== 400 
PNT== 1000 
PRI == 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 


KT11 
-SBTTL MEMORY MANAGEMENT DEFINITIONS 
faire VECTOR ADDRESS 


z*KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 


-IF NB 
s*USER "‘I"* PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 


UDPDR7= 177636 


DEFINE MEMORY MANAGEMENT REGISTERS 


SEQ 0023 
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MEMORY MANAGEMENT DEFINITIONS SEQ 0024 


-ENDC 
s*USER "‘I'’ PAGE ADDRESS REGISTERS 
PARO= 177640 


IF NB 

s*USER ‘'D’’ PAGE ADDRESS REGISTERS 

UDPARO= 177660 

UDPAR1= 177662 

UDPAR2= 177664 

UDPAR3= 177666 

UDPAR4= 177670 

UDPARS= 177672 

UDPAR6= 177674 

UDPAR7= 177676 

~ENDC 

-ENDC 

IF NB 

s*SUPERVISOR ‘'I'* PAGE DESCRIPTOR REGISTERS 

SIPDRO= 172200 

SIPDR1= 172202 

SIPDR2= 172204 

SIPDR3= 172206 

SIPDR4= 172210 

SIPDRS= 172212 

SIPDR6= 172214 

on 172216 

s*SUPERVISOR ‘'D'* PAGE DESCRIPTOR REGISTERS 

SDPDRO= 172220 

SDPDR1= I7gsee 

SDPDR2= 172224 

SDPDR3S= 172226 

SDPDR4= 172230 

SDPDRS= 172232 

SDPDR6= 172234 

oar 172236 

s*SUPERVISOR ‘*I** PAGE ADDRESS REGISTERS 
IPARO= 172240 

SIPAR1= 172242 

SIPAR2= 17 $72 

SIPAR3S= 172246 

SIPAR4= 17. $38 

SIPARS= 172252 

SIPAR6= 17S$2e 

_—— 172256 

s*SUPERVISOR ‘'D’* PAGE ADDRESS REGISTERS 

SDPARO= 172260 

SDPAR1= 172262 

SDPAR2= 172264 















2 
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MEMORY MANAGEMENT DEFINITIONS SEQ 0025 


SDPAR3= 
SDPAR4= 
SD 


-ENDC 
s*KERNEL ‘'I'* PAGE DESCRIPTOR REGISTERS 
KIPDRO= 


So 
oa 
x 
to 
v 
_~J 
P) 
u 
od td od od dd 


-IF NB 

3 *KERNEL ‘'D’’ PAGE 
DESCRIPTOR REGISTERS 

KDPDRO= 1723 


DRO= 172320 
KDPDR1= 172322 
KDPDR2= 172324 
KDPDR3= 172326 
KDPDR4= 172330 
KDPDR5= 172332 
KDPDR6= 172334 
ee 172336 
s*KERNEL ‘'I'’ PAGE ADDRESS REGISTERS 
172340 KIPARO= 172340 
172342 KIPART= 172342 
172344 KIPAR2= 172344 
172346 KIPAR3= 175366 
172350 KIPAR4= 172350 
172352 KIPARS= 172352 
172354 KIPAR6= 172354 
172356 on 172356 
s*KERNEL ‘'D'* PAGE ADDRESS REGISTERS 
PARO= 172360 
172362 
172364 
172366 
172370 
172372 
172374 
172376 
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40 

41 

42 

43 

ba 

45 

46 000004 

47 00060 

48 177560 

49 177562 

50 177520 

51 

52 

53 

54 

55 

56 100000 

57 040000 

58 020000 

59 010000 

60 0040 

61 00200 

62 001400 

63 000200 

64 000100 

65 000060 

66 000016 

67 

68 

69 

70 

71 

72 

73 

i 

75 

76 100000 

77 040000 

78 020000 
010000 

80 004000 

81 002000 

82 001000 

83 0004 

84 000200 

85 100 

86 000040 

87 00020 

88 000010 

89 000004 

90 000002 

91 000001 

92 

93 

0) 





MACRO M1113 25=MAY=82 09:19 PAGE 14 


-SBTTL TSVOS REGISTER AND PACKET DEFINITIONS 
SOME GENERAL EQUATES. 


; POINTER TO ERROR VECTOR sore tie LS OUT. 


(== 

TTIVEC== INTERRUPT VECTOR FOR CONSOL 
TTICSR== 177560 : DDRESS OF eee 
TTIBFR== 177562 3 CONSOLE INPUT DATA BUFFER 
BDVPCR== 177520 : BDV11 PAGE CONTROL REGISTER 
3+ 
sBIT DEFINITIONS FOR TSSR REGISTER 
SCc= B1T15 s SPECIAL CONDITION 
BIE= B1T14 sBUS INTERFACE ERROR 
SCE= B1T13 sSANITY CHECK ERR 
RMR= BIT12 sMODIFICATION RE 
NXM= BIT11 sNONEXISTANT MEMORY ERROR 
NBA= B1T10 sNEED “_FFER ADDR 
HIADDR= BIT9!B1T8 SEXTENDED ADDRESS BITS 

SR= BIT7 sSUB SYSTEM READY 

L= BIT6 OFF LINE 


OF 
FATERR= BIT4!BI1TS 


BIT 
sFATAL TERMINATION ERROR CODES 
TERCLS= BIT3!B1T2!B1T1 


: TERMINATION CODES 


3+ 
e 


se FOR EXTENDED STATUS REGISTER 0 


XSOTMK= BIT15 TAPE MARK DETECTED 
XSORLS= BIT14 RECORD LENGTH SHORT 
XSOLET= B1T13 2LO GICAL END OF TAPE 
XSORLL= BIT12 zRECORD ag ts LONG 
XSOWLE= BIT11 3WRITE LOCK ERROR 
XSONEF= B1T10 : NON EXECUTABLE FUNCTION 
XSOILC= BIT9 2 ILLEGAL COMMAND 
XSOILA= B1T8 ; ILLEGAL ADDRESS 
XSOMOT= BIT7 :TAPE IN MOTION 
XSOONL= BIT6 TRANSPORT ON LINE 
XSOIE= BITS INTERRUPT ENABLE 
XSOVCK= BIT4 ;VOLUME CHECK BIT 
XSOPED= BIT3 sPHASE ENCODED DRIVE 
XSOWLK= Bite WRITE LOCKED 
XSOBOT= BIT1 SBEGINNING OF TAPE 
XSOEOT= BITO sEND OF TAPE 


GF IMETIONS FOR EXTENDED STATUS REGISTER 1 


SEQ 0026 








3 
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| 
| 
} 
ee 


TSVOS REGISTER AND PACKET DEFINITIONS SEQ 0027 
97 :- 
98 100000 K1.DLT = BIT15 :DATA LATE 
99 040000 X1.SPARE= BIT14 :NOT USED 
100 020000 .COR = BIT13 RECTABLE DATA ERROR 
101 017375 X1.MBZ = 81112481711 +B1i10eB1 19481 1798116681 159B1T4+B1T3+B1T26B1T0 ; ZALWAYS 0 
102 000400 X1.RBP = BITS READ BUS PARITY ERROR 
103 000002 X1.UNC = BIT? SUNCORRECTABLE DATA OR HARD ERROR 
105 i+ 
106 ‘BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
34 3 (XST2) 
109 100000 K2.0PM = BIT15 ZOPERATION IN PROGRESS (TAPE MOVING) 
110 040000 X2.RCE = BIT14 *RAM CHECK R 
111 035400 X2. SPARE= BIT13+B1T12+B1T11+B1T9+B118 :NOT USED BY TSVOS (ALWAYS=0) 
112 002000 X2.WCF = BITI0 WRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
113 000200 X2.EXTF = BIT7 SIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
114 000100 X2.BUFE = BIT6 iT WRITE CHAR CMD THEN = BUFFER LED 
115 000077 X2.REV = 000077 WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
116 000007 XS-UNIT = BIT2+BIT14+BITO™ Me GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 
118 3+ 
119 ‘BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
i 2 (XST3) 
122 177400 X3.MDE = 177400 sMICRO~DIAGNOSTIC ERROR CODE 
123 000200 - %3.SPARE= BIT7 :NOT USED BY TSVOS 
124 000100 X3.0P1 = BIT6 OPER ATION INCOMPLETE 
125 000040 X3.REV = BITS R 
126 000020 X3.TRF = BITS STRANSPORT RESPONSE FAILURE | 
127 000010 X3.DCK = BIT3 [DENSITY CHECK 
128 000006 X3.MBZ =B1T2+B1T1 ‘NOT USED ALWAYS 0 
129 000001 X3.RIB = BITO [REVERSE INTO BOT 
131 i+ 
132 ‘BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
135 + (XST4) 
135 100000 X4.HSP = BIT15 :HIGH SPEED 
136 040000 X4.RCE = BIT14 RETRY COUNT EXCEED ED 
137 020000 X4.TSM = BIT13 NSPORT SPECIAL MODE | 
138 017400 X4.MBZ = B11 12ep1r1 1981110081 T9eeLT8 :NOT USED ALWAYS 0 
139 00377 X4.WRC = 000377 WRITE RETRY COUNT FIELD 
141 
142 3¢ 
143 3 
166 STSSR TERMINATION CODES (BIT 0-2) 
109 i 
148 000006 TSREJ= 3%2 :COMMAND REJECTED 
149 000006 UNREC= 6 SUNRECOVERABLE ERROR 
151 i+ | 
152 Py } 
153 SDEVICE REGISTER OFFSETS 





—— 
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000000 
000003 
000003 


000017 


000001 


100000 
0 
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TSBA== 0 
TSDB== | 3; TSDB/TSBA REGISTER 
TSBAH== | 
TSDBH== 1 3 TSDB/7SBA REGISTER HIGH BYTE 
SSR== 2 sTSSR REGISTE 
TSSRH== 3 3TSSR REGISTER HIGH BYTE 


s* 
3 TSDB ADDRESS BIT DEFINITIONS 
A1716 = BIT1+BITO zADDRESS BITS 17:16 ARE IN 1:0 


3+ 
: COMMAND DEFINITIONS 
P.GETSTAT 


zs 17 3GET STATUS 
INIT = 13 s INITIALIZE 
P. CONTROL = 12 sCONTROL COMMANDS 
- FORMAT = 11 3s FORMAT 
P.POSITION = 10 sPOSITION 
.-WRTSUB = 6 ; SUBSYSTEM WRITE 
P. WRITE = 5 : 
P.WRTCHAR =4 WRITE CHARACTERISTICS 
READ =1 READ 


ot 
; COMMAND PACKET HEADER WORD BIT DEFINITIONS 


P.ACK = BIT1S sBUFFER AVAIL FOR CONTROLLER 
P.CVC 3 = BIT14 CLEAR VOLUME CHECK 
P.OPP = BIT13 REVERSE SEQUENCE OF DATA BITS 
P.SWB = BIT12 ;SWAP_ BYTES IN MEMORY 
P.MODE = BIT11!B1T10!B1T9!BITS ;EXTENDED COMMAND MODE FIELD 
P.IE = BIT7 INTERRUPT ENABL 
P.FMT= BIT6!B1TS sPACKET HEADER TYPE (ALWAYS=0) 
R P.CMD = 37 MAJOR COMMAND FIELD 

: CONTROL COMMAND MODE CODES 
PC.RELEASE = 0*256. RELEASE BUFFER 
PC.REWIND = 1*256. sREWIND 
PC .NOOP = 2*256. :NO-OP 
PC.IEREW = 4*256. REWIND IMMEDIATE INTERRUPT 
PC.ERASE = 5*256. SECURITY ERASE 


3+ 
: CONTROLLER RAM DEFINITIONS 


RMCHBEG = 167 sCHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
RMCHEND = 200 sCHARACTERISTICS 10 DATA END RAM ADDRESS 
RMPKTBEG= 201 :COMMAND PACKET BEGIN RAM ADDRESS 
RMPKTEND= 210 COMMAND PACKET END RAM ADDRESS 

RMMSGBEG= 215 sMESSAGE BUFFER BEGIN RAM ADDRESS 
RMMSGEND= 234 MESSAGE BUFFER END RAM ADDRESS 


SEQ 0028 





TSV3_= GLOBAL AREAS 


3 
MACRO M1113 25-MAY=82 09:19 PAGE 14-3 


TSVOS REGISTER AND PACKET DEFINITIONS SEQ 0029 
$1 ¥ 
$l SREGISTER DEFINITIONS IN THE MESSAGE BUFFER 
HH ‘ 
217 000006 XSTO== 6 EXTENDED STATUS REGISTER 0 (WORD 4) 
218 000010 XSTi== 8 SEXTENDED STATUS REGISTER 1 (WORD 5) 
219 000012 xST2== 10 SEXTENDED STATUS REGISTER 2 (WORD 6) 
220 000014 XST3== 12. TEXTENDED STATUS REGISTER 3 (WORD 7) 
221 000016 _ XST4= 14 SEXTENDED STATUS REGISTER 4 (WORD 8) 
223 
$3 " 
$36 SOFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 
8 . 
230 000002 PKLOW = 2 :LOW ORDER CHARACTERISTIC DATA POINTER 
231 000004 PKH = 4 ;HIGH ORDER CHARACTERISTIC DATA POINTER 
232 000006 PKBCNT = 6 SNUMBER OF BYTES IN DATA PACKET 
234 000010 EXBCNT=10 ZNUMBER OF BYTES IN EXTENDED DATA PACKET 
236 3+ 
o37 *DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 
239 000000 BSELO =0 :BYTE 0 
240 000001 BSEL1 = SBYTE 1 
241 000002 SEL2 = 2 SWORD 2 
242 000004 SELDATA = 4 SWORD 3 
3 
33 
345 SBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 
247 0000 Pw.NOP = 0 :NO-OP 
248 000001 PW. RDRAM =1 TREAD RAM 
249 000002 PW. WTRAM = 2 [WRITE RAM 
250 000003 PW.RFIFO = 3 READ FIFO 
251 000004 Pw. WF IFO =4 SWRITE F 
252 000005 PW.RDSTAT = 5 ZREAD STATUS 
253 000006 PW. WCTL = 6 WRITE TAPE CONTROL 
254 000007 PW. WEMT = 7 [WRITE TAPE FORMAT 
255 000010 Pw. WMISC = 10 [WRITE MISCELLANEOUS 
256 000011 PW. WNPR = 11 ITE NPR C 
257 000020 Pw.D22 = 20 :DO MICROTEST 22 
258 000021 Pw.D11 = 21 ‘DO MICROTEST 11 
259 02 PW.D13 = 32 :D0 MICROTEST 13 
260 00002 PwW.NO1311 = 2 ‘DISABLE MICROTEST 11 AND 13 
261 000024 PW.RDEXT = 24 TREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 
26 3+ 
264 [BSEL1 CODES FOR WRITE TAPE CONTROL 
266 000200 WC. IFAD = BIT7 sIFAD = FORMATTER ADDRESS 
267 000100 WC. 1OTAD = BIT6 SITADO = TRANSPORT ADDRESS BIT 0 


Caan eon een 
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TSVOS REGISTER AND PACKET DEFINITIONS SEQ 0030 

268 060040 WC.I1TAD = BITS ;ITAD1_ = TRANSPORT ADDRESS BIT 1 

269 000020 WC. ISRESV = BIT4 s IRESVS - RESERVED #5 

270 000010 WC.IREW = BIT3 + IREW = REWIND 

271 000004 WC. IRWU = BIT2 ;IRWU = = REWIND AND UNLOAD 

272 000002 WC.IFEN = BITI sIFEN = FORMATTER ENABLE 

273 000001 wWC.1G0 = BIT0 3:60 

274 

275 3+ 

$76 sBSEL1 CODES FOR WRITE FORMAT 

278 000200 WF. IHISP = BIT7 sIHISP = HIGH SPEED 

279 000100 WF .IWRT = BIT6 sIWRT == WRITE 

280 000040 WF. IREV = BITS sIREV = REVERSE 

281 000020 WF. IWFM = BIT4 sIWFM == WRITE FILE MARK 

282 000010 WF .IEDIT = B1T3 sIEDIT = EDIT 

283 00004 WF. IERASE = BIT2 ZS IERASE = ERASE 

224 000002 WF .I3RESV = BIT! ZIRESV3 = RESERVED #3 

3H 000001 WF. I4RESV = BITO sIRESV4 = RESERVED #4 

287 

288 3+ 

44 3BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 

291 000200 MS.EXT = BIT7 s INVERT ig OF ld ae re siete SWITCH 

292 000020 MS.RSFIFO = BIT4 SRESET FIFO AND INPUT PARITY ERR 

293 000010 MS..RSTAPE = BIT sRESET TAPE STATUS " 5 rLIP*FLOPS" 

294 000006 MS.ATTN = BIT2!B1T1 * ATTENTION TRIGGER FIELD 

$92 000001 MS.RSD = BITO SRESET TIMER A,B THEN DELAY TIMES IN SEL2 
s+ 

344 : MS.ATTN SUBCODES 

299 000000 MSA.NOP = 0*2 sNO-OP (NOTHING TRIGGERED) 

300 000002 MSA.VOL = 1*2 + SIMULATE ON-LINE/OFF=LINE TRANSISTION 

301 000004 MSA.NRAM= 2%2 sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 

$8 MSA. FRAM= 322 * FORCE FATAL RAM ERROR (CAUSES SCE TO SET) 
ag 

toe 3; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 

306 000200 NP.IR = BIT7 fret gw os REQUEST (0-1 ie 

307 000100 NP.OUT = BIT6 APE DATA DIRECTION OUT (O0= IN) 

308 000040 NP.LOOP = BITS ‘E LE TRANSPORT LOOPBACK 

+4 000020 NP.WR = BIT4 CORITE CORRECT PARITY (SET=0 TO WRITE WRONG) 
3+ 

33 3; READ STATUS MESSAGE BUFFER BIT DEFINITIONS 

313 * 

314 000200 $2.DIM = BIT? WORD #9 BYTE 2 DATA IN MISS 

315 000100 $2.1L = BIT6 3 ILW H 

316 000040 $2.0UTRDY = BITS s OUT RDY H 

317 000020 S2.INRDY = BIT4 : IN RDY H 

318 000010 S2.ATIMR = BIT3 ‘ TIMER A FLAG H 

319 000004 elle = BIT2 3 TIMER B FLAG H 

320 000003 $2.UNDEF = BIT1+BITO 3 (UNDEF INED) 

321 100000 S$1.PARIN = BIT15 = WORD #8 BYTE 1 PARIN H 

322 040000 $1. 12RESV = BIT14 § IRESV2 

323 020000 $1.1 1RESV = BIT13 2 IRESV1 

010000 $1. 1EOT = BIT12 ; IEOT L 








Ce RGR. Oe F 3 
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TSVOS REGISTER AND PACKET DEFINITIONS SEQ 0031 

325 064000 $1.1 IDENT = BIT11 3 IIDENT H 
S1.ICER = B1T10 : ICER H 
$1. 1FMK = BIT9 : IFMK H 
$1. IHER = BITS : IHER H 
SO. ISPEED = BIT? sWORD #8 BYTE 0 ISPEED H 
SO.IRDY = BIT6 : IRDY L: 
$0. IONL = BITS ; IONL L 
SO. ILDP = BIT4 3 ILDP L 
$0. IDBY = BITS : IDBY L 
SO. IRWD = BIT2 : IRWD L 
SO. IFBY = BIT1 3 IFBY L 
SO.IFPT = BITO : IFPT L 
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SPECIAL MACROS AND OPDEFS. 





»SBTTL SPECIAL MACROS AND OPDEFS. 


3+ 
sSAVE GENERAL REGS 1 TO 5 


«MACRO SAVREG 
JSR R5 ,REGSAV 


Mg 

+ MACRO TO FORCE AN ERROR 

-HACRO FORCERROR TAG,NOTSSR 
LIF NDF LISTALL, .NLIST 


A 
-IF B NOTSSR 

MOV TSSR(R5) ,R1 sREAD TSSR 
- ENDC 


MOV FORCER,FORCER ;I1S FORCER SET? (LEAVE C BIT ALONE) 
BNE TAG :BR IF YES 


»NLIST 
4 (ed LISTALL, .LIST 


"MACRO TO FORCE AN ry TO AVOID SECTION ITERATIONS 
WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 
FORCER TO 177777 
TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 


“MACRO FORCEXIT TAG 
-IIF_NDF LISTALL, .NLIST 
«LIST 


MOV FORCER,FORCER ;1S FORCER NEGATIVE? 
BMI TAG :BR IF YES 

«NLIST 

-TIF NDF LISTALL, .LIST 

LIST 


— 

; MACRO TO INCREMENT ERROR COUNTS 
MACRO NEXT. ERRNO 
mls NDF beers oll EST 


ERRNO=ERR 
dit NDF LISTALL, .LIST 


SEQ 0032 


ee, 


H 3 
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SPECIAL MACROS AND OPDEFS. SEQ 0033 
397 :MACRO TO PERFORM XOR 
398 3° 
399 
400 .MACRO XOR A, 
401 MOV - A,=(SP) 
402 BIC B, (SP) 
403 BIC A,B 
04 BIS (SP)+,8 
405 ~ENDM 
407 000000 EN=0 ; INITIALIZE ERROR NUMBER 
408 .SBTTL FORCER = FORCE ERROR FLAG 
410 : 
411 : THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
ale + TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 
414 é 
415 002166 000000 FORCER:: 0 : FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
416 - 3 = BY THE MACRO "IFERROR''). AN ERROR NEED NOT 
417 : = EXIST, JUST ASSUME AND TYPE THE MESSAGE. 


| I 3 
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GLOBAL DATA SECTION SEQ 0034 

422 ~-SBTTL GLOBAL DATA SECTION 
tse vw 
425 3 THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
426 SIN MORE THAN ONE TEST. 
139 
430 3; THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
¢33 SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P=TABLE. 
433 002170 000000 EPRTSW:: «WORD C sPRINT SWITCH 
434 002172 000000 UNITN: : -WORD 0 UNIT # UNDER prea 
435 002174 000000 Ps: WORD 0 SQUICK VERIFY FLAG. 

2176 00 CSRADDR: -WORD 0 ADDRESS OF (sr FOR CURRENT DEVICE 
437 002200 000224 EC:: -WORD 224 z INTERRUPT VECTOR 
438 002202 0002 Iss -WORD PRIOG INTERRUPT PRIORITY 
439 002204 000000 TSTCNT:: WORD 0 ZNUMBER OF TESTS RUN IN THIS PASS 

2206 LOOPCNT: -WORD 0 apt ge ITERATION a _— TEST 
441 002210 DEVCNT:: oW 0 VICE UNDER T 
442 002212 000 FATFLG ° 0 3SET IF PATAL ERROR IS DETECTED IN TEST 
443 002214 000000 INTRECV ° 0 F TAPE INTERRUPT WAS RECEIV 
444 002216 000000 EXTFEA -WORD 0 TEXTENDED FEATURES SOFTWARE SW O=OFF;1=0N 
445 002220 000000 BENBSW -WORD 0 3 SWITCH SW O=OFF;1= 
446 002222 000000 EXPD ° 0 sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
447 002224 000000 RECV ° 0 an bd A RAM DATA a B A al ROUT INE 
448 002226 000000 ERRHI ° 0 HIGH ADDRESS MEMORY 
449 002230 000000 ERRLO WORD 0 LOW A DRESS MEMORY ERROR 
450 002232 RAMDATA -BLKW 16. DATA READ ons RAM PACKET OR MESSAGE BUF AREA 
451 002272 000000 RAM WORD 0 3RAM DATA SIZE FOR PRAMPKT ROUTINE 
452 002274 000000 RCVHIADD: : WORD 0 RECEIVED BUFFER OnIGH ADDRESS 
453 002276 000000 RCVLOADD: : WORD 0 RECEIVED ah LOW ADDRESS 
454 002300 000000 COUNT: : -WORD 0 TEST COUNT PATTERN 
455 002302 000000 WORD 0 ZTEST DATA 
456 002304 000000 TSTFLAG -WORD 0 zTEST FLAG WORD 
457 002306 000000 TSTPTR: -WORD 0 ;TSTBLK POINTER 
458 002310 000000 PRMNO: : WORD 0 PRINT ROUTINE TEMP 
459 002312 EXPMSG: -BL 100. sEXPECTED MESSAGE BUFFER DATA 
460 002456 RECMSG:: -BLKB 100. RECEIVED MESSAGE BUFFER DATA 
461 002622 TMPBFR: : -BLKi 80. TEMPORARY STORAGE FOR PRINT 





a ae ere a ee 
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TSTBLK = TEST DATA TABLE SEQ 0035 
reg ~-SBTTL TSTBLK = TEST DATA TABLE 
re if :THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
138 3IN SEQUENCE THE DATA IS: 
471 : ALL ZEROS 
472 ; ALL ONES 
473 : WALKING ONES 
474 ; WALKING ZEROS 
rye : ALTERNATING ONES AND ZEROS 
477 :- 
478 
479 002742 TSTBLK:: 
480 002742 000000 -WORD 0 ALL ZEROS 
481 002744 177777 WORD 177777 sALL ONES 
746 000001 WORD BITO DATA FOR WALKING ONES 
483 002750 000002 eWORD BIT 
2752 000004 WORD BIT 
485 002754 000010 WORD BIT 
756 000020 «WORD BIT4 
487 002760 000040 -WORD BITS 
488 002762 000100 -WORD BIT6 
489 002764 000200 «WOR B1T7 
90 002766 WORD B61T8 
491 002770 001 - WOR BIT9 
492 002772 002000 -WORD B1T10 
493 002774 004 WORD BIT11 
2776 010000 eWORD BITI2 
003000 020000 -WORD B61T13 
3002 040000 eWORD BIT14 
497 003004 «WORD 861T15 
3006 177776 «WORD “CBI zDATA FOR WALKING ZEROS 
499 003010 177775 «WORD “CBITI 
00 003012 177773 WORD “CBIT 
501 003014 177767 -WORD “CBIT 2 
003016 177757 WORD “CBIT4 
503 003020 177737 ~WORD “*CBITS 
04 003022 177677 «WORD “CBIT6 
505 003024 177577 WORD “CBIT? 
3026 177377 «WORD “CBIT8 
507 003030 176777 -WORD “*CBIT9 
508 32 175777 -WORD “*CBITIO 
509 003034 173777 WORD “CBIT11 
510 003036 167777 - WORD oriris 
511 003040 157777 «WORD “CBIT1 
316 003042 137777 «WORD “CBIT14 
513 003044 077777 -WORD “*CBITI5 
514 00 125252 ~WORD 125 3 sALTERNATING ONES, ZEROS 
515 003050 052525 -WORD 05252 sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 
516 003052 TBLEND==, 
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GLOBAL ENVIRONMENT STORAGE SEQ 0036 


518 .SBTTL GLOBAL ENVIRONMENT STORAGE 
320 ; STORAGE FOR DEVICE REGISTERS 
522 903052 000000 100000 000000 bumMY: 0,100000,0,0 ;DUMMY DEVICE REGISTERS... 
523 003062 000000 000000 000000 0.0,0,0,0,0,0.0 
508 yeeeFOR MULTI-UNIT CHECKOUT. 
526 
527 003102 000000 DUFLG:: .WORD 0 :‘DROPPED UNIT'’ FLAG. 
528 ZINHIBITS CODE IN ‘‘CLEAN-UP"’. 
529 003104 000000 NODEV .WORD 0 [FLAG TO SAY NO DEVICE. 
531 003106 000000 TEMP1 .WORD 0 :SOME TEMP LOCATIONS. 
532 003110 000000 TEMP2 "WORD 0 
533 003112 000000 XXCOMM “WORD 0 :XXDP+ COMM BLOCK POINTER. 
534 003114 000000 FREE: : “WORD 0 1ST FREE MEMORY ADDRESS... 
535 003116 000000 FRESIZ RD 0 SIZE (IN WORDS). 
536 003120 000000 FREEHI: .WORD 0 LAST woré in Pree SPACE 
537 003122 000000 KTFLG .WORD 0 KTI1, MEM AVAIL FLAG. « 
538 t= WORD <24K OR NO KT = 
539 t= NZ = >26K kT. 
540 003124 000000 KTENABLE: : -WORD 0 sSET BY TEST ROUTINES TO FLAG >28K UNDER TEST 
541 003126 000000 NXMFLG: : “WORD 0 SSET IF WE CAN TEST CLEARED OTHERWISE 
542 003130 000000 NXMLO: : “WORD 0 [NXM LO ADDRESS BITS 
543 003132 000000 NXMHI: : “WORD 0 [NXM_HI ADDRESS BITS FOR DAL*S 16-21 
4% 003134 000000 T23A 0 711/23A FLAG 
545 3136 000000 -WORD O 311/238 FLAG 
546 003140 000000 T3BFLG “WORD 0 [TEST 38 FLA 
547 003142 002000 PST32W -WORD 2000 aaa BLOCK Aone ss FOR 32K START 
548 003144 000000 SIFLAG “WORD 0 
549 003146 000000 BADDAT eWORD O SACTUAL 
550 003150 000000 GDDAT “WORD 0 {EXPECTED DATA 
551 003152 000000 LOOPFL “WORD 0 
552 003154 CTAB : CONFIGURATION TABLES. 
553 003154 000000 CTABM -WORD 0 sCONFIG WORK. 
554 003156 000000 “WORD 0 
555 003160 000000 “WORD 0 
556 003162 000000 "WORD 0 
557 003164 177777 “WORD =1 ZEND OF MEM TABLE. 
558 003166 CTABE:: 
359 ZERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 
561 : 0 = UNIT NOT TESTED 
36¢ : 100000 = ONLINE, NO ERRORS 
56 : 1OXXXX = UNIT ONLINE. ENCOUNTERED XXXX ERROR 
564 : 160000 = UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
565 : 160001 = UNIT DROPPED; NOT IDLE AT STAR 
366 : 14XXXX = UNIT DROPPED, ENCOUNTERED XXXX ERRORS 
568 003166 ERTABL: .BLKW (64. 
569 003366 000000 ERTABE : " 0 
571 003370 000000 SKIPT: .WORD 0 ;1=SKIP SUBTEST O=NO SKIP OF, SUBTEST 





L 3 
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GLOBAL TEXT MESSAGES SEQ 0037 
a3 : -SBTTL GLOBAL TEXT MESSAGES 
575 THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
576 : MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
577 t MORE THAN ONE TEST. 
578 i= o 
579 
580 
581 
582 3+ 
4 NAMES OF DEVICES SUPPORTED 
585 2 
586 003372 DEVTYP <TSV05> 
003372 LSDVTYP:: 
124 123 126 eASCIZ /TSVOS/ 
-EVEN 
587 
602 + 
603 TEST DESCRIPTION 
605 903400 pie DESCRIPT <#*** TSVOS LOGIC DIAGNOSTIC = CHK CABLES-TRANSPORT IF ERR *##*> 
003400 052 052 052 SASCIZ /xxee TSVOS LOGIC DIAGNOSTIC = CHK CABLES-TRANSPORT IF ERR *ee2/ 


i+ 
sBIT TO ASCII CONVERSION FOR TSSR REGISTER 


AADAAOO 
3a Ss 
OONOULWw 


620 003500 003540 003543 003547 TSSRBIT:: «WORD 1$,2$,3$,4$,5$,6$,7$,8$ 
ref} 003520 003601 003605 003611 -WORD 98,108,118, 12,138, 14$, 158.168 
622 003540 123 103 000 1$: eASCIZ ‘SC* 
623 003543 102 111 105 2$: *ASCIZ ‘BIE’ 
624 003547 123 103 105 3$: *ASCIZ ‘SCE* 
5 003553 122 115 122 4$: *ASCIZ ‘RMR* 
626 003557 116 130 115 5$: eASCIZ *NXM’ 
627 003563 116 102 101 6$: eASCIZ ‘NBA‘ 
628 003567 102 111 124 7$: eASCIZ °BIT9" 
629 003574 102 111 124 8$: eASCIZ ‘BiTB" 
630 003601 123 123 122 9$: eASCIZ ‘SSR - 
631 003605 117 106 114 108: eASCIZ ‘OFL* 
632 003611 102 111 124 118: eASCIZ ‘“BITS* 
633 aes 102 111 124 128: eASCIZ ‘BITS’ 
634 0036 102 111 124 138: eASCIZ ‘BIT3' 
635 0036 102 111 124 14$: eASCIZ = ‘BIT2" 
636 003635 102 111 124 15$: eASCIZ ‘*BITI* 
637 003642 102 111 124 168: ry *B1TO" 
639 003650 124 123 123 SFIERR: .ASCIZ ‘TSSR ERROR oe SOFT fe 
640 003703 124 123 123 SFHERR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET 
641 003736 040 040 116 XR: eASCIZ /. NON-EXISTANT DEVICE REGISTER/ 
642 003775 045 101 040 NXRX: .ASCIZ /ZA ADDRESS: 206/ 
643 004016 045 101 040 TSSX: .ASCII /ZA TSBA,TSSR EXP'D: 206%A,%062N/ 
644 004056 045 101 040 ~ASCIZ /%A TSBA,TSSR REC'D: %06%A,206/ 







GLOBAL TEXT MESSAGES 


645 004115 045 116 045 FUSI: ASCII 
121 040 040 125 USI: eASCIZ 
647 004150 040 040 111. =NSI: ASCIZ 
648 004213 045 116 045 FNOINTR 
9 004217 040 040 116 NOINTR: .ASCIZ 
004254 040 040 111 IFAULT: .ASCIZ 
651 sox 44 045 101 040 ™ eASCIZ 
00433 040 040 042 NOINIT: .ASCIZ 
653 004405 040 040 042 NSINIT: .ASCIZ 
638 004455 040 040 042 BRINIT: .ASCIZ 
656 0045 000 : NUL:  .ASLaZ 
6 90-5. 6 of 116 000 NULCR: eASCIZ 
658 5 5 101 040 EXPGOT: .ASCIZ 
659 565 045 116 045 EXPGT2: .ASCIZ 
641 045 101 040 DUADI2: .ASCIZ 
661 004743 122 101 115 PKTRAM:: 
66 5011 040 040 103 SCME: eASCIZ 
663 005054 127 122 111. WRTMSG: .ASCIZ 
005111 124 123 123 WRTERR: tis 
665 005204 124 123 123 RDERR: .ASCI 
005276 106 101 124 SCHERR: .ASCIZ 
667 005370 105 122 122 RETERR: .ASCIZ 
00545 045 116 045 NOMEM: .ASCIZ 
555 045 116 045 M8186: .ASCIZ 
chy 005643 045 116 045 M™8189: tekee 
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SEQ 0038 


NEXPECTED INTERRUPT/ 
bier EXPECTED, NOT RECEIVED/ 


O INTERRUPT WAS GENERATED/ 
INTERRUPT FAULT/ 
CPU PC: Z06ZA TSBA: %06/ 
BUS=INIT DIDN'T INITIALIZE CONTROLLER/ 
“SOFT=INIT' DIDN'T INITIALIZE THE DPU/ 
"BUS-RESET"’ DIDN'T INITIALIZE THE DPU/ 


/3N/ 

tA EXP'D: ZO6ZA, REC'D: %06/ 

/ENZA_EXP*'D: %06%A, ZO63NZA REC'D: ZO%A, %06/ 

/%A REG(W) uniTrEn” ay 206%A REG(R) READ; EXP’ D: Z06%ZA, REC'D: %06/ 
eASCIZ ‘RAM Con s Do wee Match Packet Sent’ 

/ CONFIG DOESN’ t emATCH MFG. MASTER/ 

"WRITE CHARACTERISTICS Failed’ 

*TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 
*TSSR Incorrect After READ Command, More Bits Set Than SSR’ 
"FATAL ERROR IN SUBTEST = CHECK T TAPE, CAB ABLES, TRANSPORT etc. 
‘ERROR IN SUBTEST = WRITE DATA RETRY FIVE uiMes FAILED’ 

*ZNZA eeee% NO NXM me tien aes TEST TIMEOUT, **ee2Zn° 
"ZNZA teeeeeranenananne 11/234 SYSTEM Lautetnesteeiinetee 
"ZNZA teeeeeanananeanee 11/238 SYSTEM eeeeeeneeenneanaeZy' 





14 
699 006020 
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013746 


005727 
090000 
001402 
004777 
AL toy 


000207 
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003104 
003775 
000002 


000006 
005766 


177770 
004526 
000001 


000004 


-SBTTL GLOBAL ERROR REPORT SECTION 


" THE GLOBAL ERROR REPORT ree tee CONTAINS THE PRINTB AND PRINTX 
: CALLS THAT ARE USED IN MORE THAN ONE 


; ASCII TEXT STRINGS ARE FOUND TN THE GLOBAL TEXT SECTION. 


BGNMSG NXRERR 


sNON-EXISTANT DEVICE REGISTER. 


PRINTX #NXRX,NODEV sNODEV = NEXM ADDRESS. 
MOV NODEV,=(SP) 
MOV ANXRX = (SP) 
MOV #2, -(§P) 
MOV SP, 
TRAP CSPNTX 
ADD #6,SP 
JSR PC .EXTEND 3; PRINT EXTENSION IF REQUIRED. 
ENDMSG 
L10002: 
TRAP CSMSG 


; THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
: TO ANY OF THE ABOVE ERROR SIGNATURES. 


EXTEND: TST 
EXTA: 0 


J 
1$: PRINTX 


(PC)+ 
: 0 = NO EXTENSION, 


1$ 
PC,@EXTA ¢ RINT EXTENSION TEXT. 
#NULCR PRINT A BLANK LINE 


#NULCR,=(SP) 
1,=(SP) 
SPR 

CSPNTX 
#4,SP 

PC 


SEQ 0039 








aeoonanee 
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| PRITSSR = PRINT TSSR CONTENTS SEQ 0040 
70 .SBTTL PRITSSR = PRINT TSSR CONTENTS 
ms . 
706 “ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
707 ZTHE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
708 :BY A MESSAGE PRINTING ROUTINE 
oe INPUTS: 
a : R1 CONTENTS OF TSSR 
ay S SUBORDINATE ROUTINES: 
16 ; CHKAMB CHECK FOR AMBIGUOUS CONTENTS 
718 :- 
719 
720 006022 PRITSSR: 
721 006022 SAVREG SAVE GENERAL REGISTERS 
722 006026 010104 MOV R1,R4 [SAVE THE TSSR CONTENTS 
PRINTB #TSSRFOR,R4 ‘PRINT THE CONTENTS OF TSSR 
006030 010446 MOV 4,-(SP) 
006032 012746 006505 MOV #TSSRFOR,=(SP) 
006036 012746 000002 MOV #2,-(SP) 
006042 010600 MOV SP,RO 
006044 104414 TRAP  C$PNTB 
006046 062706 000006 ADD #6,SP 
724 006052 010400 MOV R4.RO :GET TSSR_BACK FOR CHKAMB 
725 006054 004737 016134 JSR PC. CHKAMB SARE CONTENTS ,AMBiGuoUs ? 
726 006060 103410 BCS 54 [BRANCH IF 
727 006062 PRINTX #AMBTSSR + SHOW CONTENTS ARE AMBIGUOUS 
006062 012746 006725 MOV #AMBTSSR,=(SP) 
006066 012746 000001 MOV #1,-(SP) 
072 010600 MOV SP,RO 
006074 104415 TRAP — C$PNTX 
006076 062706 000004 ADD #44SP 
728 006102 010403 5$: MOV R3 CONTENTS OF TSSR 
729 006104 042703 001476 BIC AjADDR:FATERR! TERCLS. R3 3CLEAR ALL MULTIPLE BIT FIELDS 
730 006110 001434 BEQ 20$ 3NO BITS ARE SET 
731 006112 012702 002622 MOV ATMPBFR,R2 S TEMPORARY ASCII BUFFER 
732 006116 012701 003500 MOV #TSSRBIT,R1 TASCII EQUIVALENT OF BITS 
733 006122 005703 10$: TST R3 ZREMAINING BITS TO CONVERT 
734 006124 001413 BEQ 15$ [BRANCH WHEN ALL ARE DONE 
735 006126 000241 CLC SCLEAR CARRY FOR SHIF 
736 006130 006103 ROL :SHIFT NEXT BIT TO CARRY 
737 006132 103006 BCC RANCH IF BIT 
738 006134 011100 MOV (R1),RO ZPOINTER TO BIT DEFINITION 
739 006136 112022 11$:  MOVB (RO)+,(R2)+ :MOVE ASCIZ TO 
740 006140 001376 BNE :MOVE ALL BITS 
741 006142 112762 000054 177777 MOVB -1(R2) ZINSERT A COMMA TO TERMINATE 
742 006150 005721 13$: TST (ais :POINT TO NEXT DESCRIPTION 
743 006152 000763 BR [GET THE REMAINING BITS 
744 006154 105042 15$: CLRB wR 2) S TERMINATE THE LINE 
745 006156 PRINTX #TSSDEF #TMPBFR :PRINT THE BIT DEFINITIONS 
006156 012746 002622 MOV #TMPBFR.=(SP) 
006162 012746 006676 MOV #TSSDEF .=(SP) 
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PRITSSR = PRINT TSSR CONTENTS 
006166 
72 


000002 


000006 


177761 
006766 


006566 
000002 


000006 
177717 


007326 


006627 
000002 


000006 
176377 


006525 
000002 


000006 
002170 


000001 


000004 


ot eo 
Ot dd td 
DAAAAAAD 


007031 





#2,°(SP) 

P,RO 

CSPNTX 

#6,SP 

R4,R3 
#*CTERCLS R3 
TCOCOD(R35 .R3 
#TCOASC,R3- 


R3,-(SP 
#TCOASC,=(SP) 
#2,-(SP) 
SP-RO 


CSPNTX 
#6,SP 


R4_R3 
#°CFATERR,R3 
25$ 

R3 

R3 

R3 
TSFCOD(R3) ,R3 
#TFCASC,R3 
R3,~(SP5 
#TFCASC,=<SP) 
#2,-(SP) 
SP.RO 

CSPNTX 

#6,SP 
#°CHIADDR,R4 
HTEXASC,R4 
R4,=(SP) 
#TEXASC,=(SP) 
#2,-(SP) 

SP-R 

CSPNTX 

#6,SP 
EPRTSW,R3 

R3 

R3,-(SP) 
#1.-(SP) 
SP.RO 
CSPNTX 
#4,SP 


ca 


GET THE TSSR_CONTENTS 

CLEAR ALL BUT TERMINATION 

2GET THE TERMINATION CODE MEANING 
zPRINT THE TERMINATION CODE 


zTSSR_ CONTENTS AGAIN 
;CLEAR ALL BUT FATAL TERMINATION 
DON'T PRINT IF ZERO 


ALINE TERMINATION CODE oe INDEX 
3GET THE FATAL TERMINATION CODE 
SPRINT THE FATAL TERMINATION CODE 


:CLEAR ALL a EXTENDED ADDRESS 
;DON'T PRINT IF ZERO 
SPRINT THE EXTENDED ADDRESS BITS 


sPRINT MEAASGE BUFFER ADDRESS 
PRINT PROPER MESSAGE 


sRETURN TO CALLER 


"ZENZA teeeeCHECK CABLES BETWEEN | M7196 AND TRANSPORT**#«#° 
*ZNZA eeeseCHECK TRANSPORT*eee®® 


*ZNZA 


Z TSSR = %06° 

Z ‘2NZA Extended Address Bits = %06' 

Z ‘ZNZA Termination Class Code = %T' 

Z ‘2ZNZA Fatal Termination Class Code = %T° 
Z ‘ZNZA TSSR Bits Set: ZT’ 

Z ‘ZNZA TSSR Contents Are Ambiguous’ 


-3$,4$,5$,6$,7$,8$ 


4 
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PRITSSR = PRINT TSSR CONTENTS SEQ 0042 







1 007 116 157 166 1$: eASCIZ ‘Normal Termination’ 
792 007031 124 145 162 2$: -ASCIZ ‘Termination Condition’ 
793 007057 124 141 160 3$: eASCIZ ‘Tape Status Alert’ 

007101 106 165 156 4$: eASCIZ ‘Function Reject’ 

795 007121 122 145 143 5$: eASCIZ ‘Recoverable Error = Tape Position One Record Down’ 
796 007203 122 145 143 6$: eASCIZ ‘Recoverable Error - Tape Was Not Moved’ 
797 007252 125 156 162 7$: eASCIZ ‘Unrecoverable Error’ 
me 007276 106 141 164 8$: oly "Fatal Controller Error’ 


800 
801 007326 wre 007372 seas a WORD 1$,2$,3$,4$ 


802 007336 1 156 eASCIZ "Internal Diagnostic Failure’ 

803 00737, 12 145 163 2$: eASCIZ ‘Reserved’ 

804 007403 1 165 163 3$: eASCIZ ‘Bus Interface or Sanity Check Error’ 
Boe 007447 1 145 163 4$: rely "Reserved' 





Ee a ee ee 


4 
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850 





PRIPKT = PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET SEQ 0043 
808 .SBTTL PRIPKT = PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 
810 
811 {THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
aig ; THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 

B14 INPUT: 
816 FY RO NUMBER OF WORDS IN PACKET 
817 : R3 HIGH ORDER COMMAND PACKET ADDRESS 
519 ; RG ADDRESS OF COMMAND PACKET 
820 : NOTE: R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 
822 
823 007460 PRIPKT 
824 007460 SAVREG :SAVE THE REGISTERS 
007464 010005 MOV RO,RS TSAVE NO. OF WORDS IN PACKET 
007466 005737 003124 TST KTENABLE ABOVE "2k UNDER TEST? 
827 007472 001001 BNE 10$ 3BR IF YES 
828 007474 005003 CLR R3 SET HIGH ORDER ADDRESS TO 0 
829 007476 010301 10$: MOV R3,R1 * COPY HIGH ORDER ADDRESS 
007500 010400 MOV R4.RO [GET LOWER ADDR 
831 007502 006100 ROL RO ‘SHIFT BIT 15 INTO C BIT 
007504 006101 ROL R1 [AND INTO HIGH ORDER. 
833 007506 PRINTB #PKTADD,R1,R4 sPRINT PACKET ADDRESS 
007506 010446 MOV R4,=(SP) 
007510 010146 MOV R1.=(SP) 
007512 012746 007644 MOV #PKTADD,-(SP) 
007516 012746 000003 MOV #3,-(SP) 
007522 0106 MOV SP.RO 
007524 104414 TRAP  C$PNTB 
007526 062706 000010 ADD #10,SP 
834 007532 010300 15$: MOV R3,RO :GET HIGH ORDER ADDRESS 
835 007534 001404 BEQ 20$ ABOVE 28K. 
007536 010401 MOV R4,R1 GET Low ORDER ADD RESS 
837 007540 004737 017406 JSR PC; SETMAP ZSETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
007544 010004 MOV RO.R4 :GET URETURNED PAR6 ADDRESS BIAS 
839 007546 005001 20$: CLR 1 
007550 012402 25$: MOV (RG) +,R2 iGET PACKET CONTENTS 
841 007552 PRINTB #PKTFRM,R1,R2 sPRINT THE DATA 
007552 010246 MOV R2,-(SP) 
007554 010146 MOV 1.=(SP) 
007556 012746 007606 MOV #PKTFRM,=(SP) 
007562 012746 000003 MOV #3,-(SP) 
007566 0106 MOV SP.RO 
007570 104414 TRAP  C$PNTB 
007572 062706 000010 ADD #10,SP 
842 007576 005201 INC 1 :NEXT WORD NUMBER 
3 007600 020105 CMP R1,R5 [DONE ALL PACKET WORDS? 
Bea bores 002762 BLT 25$ SLOOP TILL: ALL DONE 
845 007604 000207 RTS PC [RETURN 
847 007606 045 116 045 PKTFRM: .ASCIZ ‘2N%A Packet Word #%D1%A = %06° 
848 007644 045 116 045 PKTADD: -ASCI2 "ZNZA Packet Address = %01%05° 


———  -  t— CCS Et—e 
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PRIBXOR = PRINT EXPD, RECV AND XOR BYTE SEQ 0044 
85 .SBTTL PRIBXOR = PRINT EXPD, RECV AND XOR BYTE 
is r 
856 {PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
837 ;THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
859 INPUTS: 

860 : 
861 : R1 RECEIVED DATA 
862 ; R2 EXPECTED DATA 
863 § 
re OUTPUT: 
866 : RO XOR OF EXPECTED/RECEIVED DATA 
869 
870 007702 PRIBXOR:: 
871 007702 SAVREG ZSAVE THE REGISTERS 
872 007706 010203 MOV R2,R3 3EXP ECTED DATA 
873 007710 XOR R1,R3 FORM THE EXCLUSIVE OR 
874 007720 012700 177400 MOV #*0<377>,R0 7BY YTE MASK 
875 007724 040001 BIC RO,R1 TSAVE LOW BYTE RECV 
876 007726 040002 BIC RO,R SA VE LOW BYTE EXPD 
877 007730 040003 BIC RO.R E LOW BYTE xX 
878 007732 PRINTS #XORBEOR, R2,R1 re *PRINY THE MESSAGE 
007732 010346 ; MOV R3,-(SP) 
007734 010146 MOV R1.-(SP) 
007736 010246 MOV R2.=(SP) 
007740 012746 007764 MOV #XORBFOR,=(SP) 
007744 012746 000004 MOV #4,-(SP) 
007750 010600 MOV SP,RO 
007752 104414 TRAP CS$PNTB 
007754 062706 000012 ADD #12,SP 
879 007760 010300 MOV R3,R0 zRO HAS XOR ON RETURN 
880 007762 000207 RTS PC SRETURN TO CALLER 
rr 007764 045 116 045 XORBFOR: even eASCIZ ‘“ZNZA EXPD: 2%03%A RECV: 2%03ZA XOR: 203° 


nen 
- ican = GLOBAL AREAS 





- PRINT EXPD, RECV AND X 


010032 


2 
909 010076 
910 010100 
911 
912 010102 
913 
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010102 
000004 
000012 


116 


= 


-SBTTL 


PRIXOR = PRINT EXPD, RECV AND XOR 


[PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE T 
: THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


INPUTS: 


OUTPUT: 


PRIXOR:: 


045 XORFOR: 


R1 
R2 


RO 


eASCIZ 
-EVEN 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 
ED DATA 


R2,R3 SEXPECT 
R1,R 2FORM THE EXCLUSIVE OR 
#XORF OR, R2,R1,R3 ;PRINT THE MESSAGE 


R3,RO 3RO_HAS XOR ON RETURN 
PC RETURN TO CALLER 


*ZNZA EXPD: %06%A RECV: Z06%A XOR: %06° 


SEQ 0045 


— --- —---—- -—-} 


- 





PRIEQU 


1 
154 


TSV3_ = GLOBAL AREAS 
~ PRINT BIT NUMBERS AS ASCII EQUIVALENT 


000207 
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010206 
000002 


000006 


116 


045 


-SBTTL PRIEQU = PRINT BIT NUMBERS AS ASCII EQUIVALENT 
:+ 


SROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
s THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


INPUTS: 


: RO OCTAL VALUE TO CONVERT 
: R1 TAB! E OF POINTERS TO ASCII EQUIVALENT 
PRIEQU: 
SAVREG ZSAVE THE REGISTERS 
RTS PC SRETURN TO CALLER 


-SBTTL PRIRAM = PRINT RAM ADDRESS 


{PRINT CONTROLLER RAM ADDRESS. 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
‘INPUTS: 


: R4 RAM ADDRESS 


PRIRAM: 
SAVREG sSAVE R1-R5 UNTIL NEXT RETURN 
— #RAMF OR ,R4 ‘PRINT RAM ADDRESS IN ERROR 


V R4,=(S 
MOV #RAMF OR, -(SP) 
MOV #2,-(SP) 
MOV SP,RO 
TRAP  C$PNTB 
ADD #6,SP 


RTS PC 7RETURN 
RAMF OR: vr *ZNZA CONTROLLER RAM ADDRESS = %06° 


.SBTTL PRIADD = PRINT MEMORY ERROR ADDRESS 
“PRINT MEMORY ADDRESS 
3THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
: IMPLICIT INPUTS 


: ERRHI = HIGH ORDER ADDRESS 
: ERRLO = LOW ORDER ADDRESS 


SEQ 0046 


| 4 
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PRIADD = PRINT MEMORY ERROR ADDRESS SEQ 0047 
966 ; 
967 a 
968 010250 PRIADD: 
969 010250 SAVREG sSAVE R1-R5_ UNTIL — RETURN 
0 010254 013700 002226 MOV ERRH] ,RO GET HIGH ADDRESSS 
971 010260 013701 002230 MOV ERRLO,R1 :GET LOW A 
972 010264 010102 MOV R1,R2 :COPY LOW ADDRESS 
010266 006101 ROL R1 sSHIFT BIT 15 TO ‘ asin 
974 010270 006100 ROL RO sSHIFT INTO HIGH ORDER 
975 010272 PRINTB #PRIAO,RO,R2 ;PRINT MEMORY ADDRESS IN ERROR 
010272 010246 MOV R2,~(SP) 
010274 010046 MOV RO,=(SP) 
010276 012746 010320 MOV #PRIAO,=(SP) 
010302 012746 000003 MOV #3,-(SP) 
10306 010600 MOV SP,RO 
010310 104414 TRAP CS$PNTB 
010312 062706 000010 ADD #10,SP 
376 010316 000207 RTS PC ;RETURN 
da 010320 045 116 045 PRIAO: yu ly "ZNZA MEMORY ERROR ADDRESS = %01%05" 
0 
982 -SBTTL PRITADD = PRINT MEMORY TEST ADDRESS 


983 3+ 
985 [PRINT MEMORY ADDRESS 


IMPLICIT INPUTS 


3 Be Se Se Se Be Se 


SSSSSIFSSISSEESEE 


010364 BRITADD: 
010364 SAVREG 
010370 013702 002226 V ERRHI ,R2 
010374 013701 002230 MOV ERRLO,R1 
MOV R1,R2 
sROL R1 

1 sROL RO 

1001 010400 PRINTB #PRITO,R1 
010400 010146 MOV 1,-(SP 
010402 012746 010446 MOV #PRITO,=-(SP) 
010406 012746 000002 MOV #2,-(SP) 
010412 010600 MOV M 
010414 104414 TRAP CSPNTB 
010416 2706 000006 ADD #6,SP 

1002 010422 PRINTB #PRIT1,R2 
010422 010246 2,7 (SP) 
010424 012746 010511 MOV #PRIT1,=-(SP) 
010430 012746 000002 MOV #2,-(SP) 
010434 010600 MOV SP,RO 
010436 104414 TRAP CS$PNTB 
010440 062706 000006 ADD #6,SP 

1003 010444 000207 RTS PC 





sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


ERRHI = HIGH ORDER ADDRESS 
ERRLO = LOW ORDER ADDRESS 


+ SAVE R1-R5 ot aad RETURN 


RDER 
:PRINT MEMORY ADDRESS LOW IN ERROR 


sPRINT MEMORY ADDRESS HIGH IN ERROR 


RETURN 


ey, 





EE Ee Ee 
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PRITADD = PRINT MEMORY TEST ADDRESS 


010446 045 116 045 PRITO: .ASCIZ ‘%ZNZA MEMORY TEST ADDRESS LOW = %06' 
010511 045 116 045 PRIT1: ely "ZNZA MEMORY TEST ADDRESS HIGH = %06' 


1 
1 
1 
1 
1 
1 


SEQ 0048 


Pepa ee K 4 
TSV3_= GLOBAL AREAS MACRO M1113 25=-MAY-82 09:19 PAGE 27 
SPACE = SPACE RECORDS (FORWARD AND REVERSE) COMMAND SEQ 0049 


1012 .SBTTL SPACE = SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
1014 + 
1015 ; 
1016 SROUTINE TO ISSUE A SPACE RECORDS 
1017 [COMMAND (FORWARD OR REVERSE) 
1839 : INPUT: 
1021 : R3 NUMBER OF RECORDS TO BE SPACED OVER 
loge : BIT15 CONTROLS DIRECTION 
102 : BIT15 = 0 1S FORWAR 
1024 : BIT15 = 1 1S REVERSE 
1025 : RS FIRST DEVICE UNIBUS ADDRESS 
1087 : REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
1029 S OUTPUT: 
1030 3 
1031 : CARRY SET = SPACE RECORDS COMMAND 
1032 : CLR = SPACE RECORDS FAILED 
i932 
1c35 : RO THE CONTENTS OF R4 IS MOVED TO RO 
1037 ; 
1038 S IMPLICIT OUTPUT: 
1040 : TAPE HAS BEEN MOVED 
1042 [SIDE EFFECTS: 
1043 3 
1044 ; 
1045 :- 
1046 
1047 010556 SPACE 
1048 010556 SAVREG SAVE ylté GENERAL REGISTERS 
1049 010562 012737 000764 010750 MOV #500. ,SDELAY :SET UP DELA 
1050 010570 012737 140010 010740 MOV #140010, 80$ :SET UP COMMAND, SPACE FORWARD 
1051 010576 00570 TST R3 SCHECK FOR DIRECT 
1052 010600 100403 BM! 58 ‘BR, IF REVERSE INDICATED 
1053 010602 010337 010742 MOV R3,90$ [LOAD UP NUMBER OF RECORDS TO SPACE 
1054 010606 000407 BR 10$ [60 DO COMMAND 
1055 010610 042703 100000 5$: BIC #B1T15,R3 ;CLEAR DIRECTION BIT 
1056 010614 010337 010742 MOV R3,90$ [LOAD UP NUMBER OF RECORDS T9 SPACE 
1057 010620 052737 000400 010740 BIS #81T8,80$ [SET REVERSE BIT PACKET 
1058 010626 012704 010740 10$: MOV #80$,R4 3SET UP R4 WITH PACKES ADDRESS 
1059 010632 010465 000000 MOV R4, TSDB(RS) out c 
1060 010636 004737 016340 15$: JSR PC WAITF SWAIT F S$SR 
1061 010642 103420 BCS 208 “BR F ssh IS SET AND Ok 
1062 010644 DELAY 250 :DELAY ABOUT Ibs SECONDS 
010644 012727 000250 MOV #250, (PC)+ 
010650 000000 . WORD 
010652 013727 002116 MOV LSDLY, (PC)+ 
010656 000000 . WORD 
010660 005367 177772 DEC -6(PC) 
010664 001375 BNE 6 





——. 


L 4 
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SPACE = SPACE RECORDS (FORWARD AND REVERSE) COMMAND SEQ 0050 
065367 177756 DEC -22(PC) 
010672 BNE .-20 
1063 010674 005337 010750 DEC SDELAY :BUMP DELAY COUNTER DOWN 
1064 010700 001356 BNE 15$ ‘BR, IF MORE DELAY 
1065 010702 900411 BR 60$ :BR IF TROUBLE CARRY = CLEAR 
1066 010704 016501 000002 20$: MOV TSSR(R5),R1 ‘READ TSSR 
1067 010710 012702 000200 MOV #SSR,R2 SET uP EXPECTED 
1068 010714 020201 25$: CMP R2,Ri TARE THEY OK 
1069 010716 001401 BEQ 40$ “BR, IF EQUAL = OK 
1070 010720 000402 BR 60$ ‘TROUBLE EXIT 
1071 010722 000261 40$: SEC :SET CARRY NO TROUBLE 
1072 010724 000401 BR 70$ SEXIT 
1073 010726 000241 60$: CLC :CARRY CLEAR = ERROR 
1074 010730 70$: 
1075 010730 010400 MOV R4,RO ZPASS PACKET ADDRESS 
1076 010732 000207 RTS PC RETURN 





———  --- —- +} 


i ee 


4 
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SPACE = SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


1078 : 
1079 : 

1080 : 

108} PACKET FOR SPACE COMMAND 

108% 010740 «=<. +1028177770 

1087 “COMMAND WORD 

1088 010740 000000 80S: . WORD 

1089 -NUMBER OF RECORDS TO BE SPACED OVER WORD 
1090 010742 000000 90S: . WORD 

1091 010744 000000 WORD 

1092 010746 000000 WORD 


1093 010750 000000 SDELAY: -WORD 0 :DELAY COUNTER 


SEQ 0051 





TSV3 = GLOBAL AREAS 
~- WRITE CHARACTERISTICS C 


WRTCHR 


33 


ONAN SODNANE WOODS 


POMNMNNINNN Noy 3 2 4 St Sw | SH OOOCOCOCOCO 
SS 3 QESRRALLS 
SOOCooooooooooooooooocoeoeo 


Re St a Ss Ss Ss Ss Ss SS a SS SS a Ss BS SS Ss Ss Sh 3) 9 2 hh Bh Ss Ss 2 FS SS 79 Sh Ss 9 3 BP SB HP BH SS SH SS 
WWW 


a ee ee ee ee ee ee ee ee ee ee ee ee ees se Se Eee ES es eee SL re LL Ll 


MUMMERS RRR RE 


S85 


oooooo[0o°o 
WWNRN—— 
NOWLOON 


ooo 
P2LERS 


5 


005037 


001402 
005237 


032763 
001402 
005237 


MACRO M1113 2 
OMMAN 


016426 


000002 
000200 
000100 


000100 


000010 
000200 
002216 
000100 
002220 


000012 


000012 
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“> 


-SBTTL 


WRTCHR 


SROUTINE TO ISSUE A WRITE CHARACTERISTICS 


- WRITE CHARACTERISTICS COMMAND 


:COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 


INPUT: 


OUTPUT: 


R4 ADDRESS OF PACKET FROM TEST 

R5 FIRST DEVICE UNIBUS ADDRESS 

REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 
RO TSSR CONTENTS 

CARRY SET = WRITE CHARACTERISTICS COMMAND OK 


CLR - WRITE CHARACTERISTICS FAILED 


IMPLICIT OUTPUT: 


MESSAGE BUFFER AND OTHER BUFFERS ALL 


wictnanim 3S yy SET AS FOLL 


SIDE EFFECTS: 


WRICHR:: 


10$: 


208: 


25$: 


40$: 


OwS: 


SET UP 


FEA = EXTENDED FEATURES PRESENT 
BENBSW = BUFFER ENABLE SWITCH ON OR OFF 


BENBSW :CLEAR BUFFER ENABLE SWITCH 

EXTFEA SCLEAR EXTENDED FEATURES SW SWITCH 

R4, TSDB(RS) : T COMMAND 

PC; CHKTSSR ‘WAIT FOR SSR 

20$ :BR, IF SSR IS SET AND O 

60$ [BR IF TROUBLE CARRY = 

TSSR(RS),R1 [READ TSSR 

#SSR,R2 [SET UP EXPECTED 

#OFL.R1 :WAS OFF LINE SET IN TSSR 

25$ ‘BR, IF NO OFL SET 

#OFLR2 sMAKE THEM LOOK ALIKE 

R2,Ri SARE THEY OK 

40$ :BR, IF EQUAL = OK 

60$ : TROUBLE EXIT 

#8. .R4 [POINT TO WRT CHARA DATA PACKET 
“GET ADDRESS OF MESSAGE BUFFER 


EXTFEA 

#X2.BUFE ,XST2(R3) 
50$ 

BENBSW 


SEXTENDED FEATURES BIT 


: F NO 
sSET EXTENDED FEATURES SW SWITCH 


:SET SOFTWARE SWITCH FOR ENABLED 


IF SWITCH NOT SET 


;SAVE THE GENERAL REGISTERS 


K 
CLEAR 


SET? 


SEQ 0052 


sBUFFER ENABLE SWITCH SET 


TSV3 = GLOBAL AREAS 
WRTCHR = WRITE CHARACTERISTICS COMMAN 





53 50$: 
54 

55 

56 60$: 
57 O16560 000002 70$: 
58 000207 

59 

60 
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SEC 

BR 70$ 

CLC 

MOV TSSR(RS) ,RO 
s PC 


sSET CARRY NO TROUBLE 


TCAR Y CLEAR = ERROR 
RETURN TSSR CONTENTS 
; RETURN 


SEQ 0053 
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REWIND = POSITION TAPE (REWIND) COMMAN SEQ 0054 
1166 -SBTTL REWIND = POSITION TAPE (REWIND) COMMAND 
1188 ° 
1188 sTHIS ROUTINE WILL REWIND THE SELECTED TAPE. 
1168 g CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 
1169 : TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
1170 3 SSR TO SET IN THE TSSR 
1171 $ 
1172 3 
Ae sCALLING SEQUENCE: 
1175 : DO A SOFT INIT 
1176 3 DO A WRITE CHARACTERISTICS 
1177 : JSR PC REWIND 
1178 ; 
1179 s INPUT: 
1180 3 
118) $ RS FIRST DEVICE UNIBUS ADDRESS 
1183 ; 
ite sOUTPUT 
ser F RO THE CONTENTS OF R4 IS PASSED TO RO 
1188 3 
1189 3° 
1190 011104 REWIND:: 
1191 011104 SAVREG sSAVE R1-R5 UNTIL NEXT RETURN 
1192 011110 012704 011200 MOV #RWPACK ,R4 3GET PACKET ADDRESS 
1193 011114 010465 000000 MOV R4,TSDB(RS) sSEND PACKET ADDRESS TO EXECUTE 
1194 011120 012703 000550 MOV #360. .R3 sENOUGH TIME FOR 2400° REEL TO REWIND 
1195 011124 004737 016340 10$: JSR PC ,WAITF sWAIT FOR SSR TO 
1196 011130 103417 BCS 20$ ;LEAVE WHEN SSR IS SET 
1197 011132 DELAY 250. sWAIT FOR .25 SECONDS 
011132 012727 000372 MOV #250. ,(PC)+ 
011136 000 - WORD 
011140 013727 002116 MOV LSDLY, (PC)+ 
011144 0 eWORD 0 
011146 005367 177772 DEC -6(PC) 
011152 001375 BNE 74 
011154 005367 177756 DEC ~22(PC) 
011160 136 BNE 720 
1198 011162 005303 DEC R3 sBUMP COUNTER DOWN 
1199 011164 00135 BNE 10$ sKEEP GOING 
1200 011166 24 CLC :CLEAR CARRY TO SET ERROR 
1201 011170 010400 20$: MOV R4,RO sPASS THE PACKET ADDRESS 
1202 011172 000207 RTS PC ;RETURN 
1203 
1204 
1206 011200 -=<.+10>8177770 
1208 011200 RWPACK: 
1209 011200 102010 eWORD 102010 sPOSTION COMMAND (REWIND) 
isd 011202 000000 -WORD 0 sNOT USED 
1212 
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CKRAM 

1217 

1218 

1219 

1220 

1221 

iss¢ 

122 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 011204 
1247 011204 
1248 011210 
1249 011214 
1250 011220 
1251 011222 
1252 011226 
1253 011234 
1254 011240 
1255 011244 
1256 011250 
1257 011254 
1258 011256 
1259 011260 
1260 011262 
1261 011264 
1262 011270 
1263 011272 
1264 011274 
1265 011276 
1266 011300 
1267 011302 
1268 011304 
1369 011312 
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002232 
000201 


016426 
0000 9 000000 


000210 


000010 002272 


s® 


~SBTTL 


CKRAM 


= COMPARE RAM TO I/0 PACKET 


ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


SINPUT: 


Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Be Be Ge Se Ge Be Se Se 


10$: 


20$: 


30$: 
50$: 


OUTPUT: 


R4 
R5 


CARRY 


ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 


SET = RAM MATCHES PACKET 


CLR = RAM DOES NOT MATCH PACKET 


IMPLICIT OUTPUT: 


THE TABLE ag IS FILLED WITH THE 
DATA HELD IN 
RAMSIZ IS sere A "8. FOR PRAMPKT ROUTINE 


SIDE EFFECTS: 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


#RAMDATA,R1 
+ tle aie 


PC,.CHKTSSR 


R 
R2, ARMPKTEND 
10$ 
R3 
30$ 


50$ 
#8. ,RAMSIZ 
PC 


sSAVE THE GENERAL REGISTERS 
ADDRESS TO SAVE THE RAM DATA 
BYTE ADDRESS o cies RAM DATA 
SCLEAR THE ERROR FLAG 

oe SSR 
NANCE MODE 


READ THE RAM DAT 
COMPARE TO EXPECTED 
ANCH IF x 


BRANCH 

SET ERROR FLAG 

ADDRESS OF HERI RAM LOCATION 
REACHED END YET 

BRANCH TILL at READ 

sWAS AN ERROR FOUND ? 

BRANCH IF NOT 

CLEAR CARRY TO SHOW ERROR 
AND EXIT 


:SHOW GOOD COMPARE 
:SETUP RAMSIZ F FOR PRAMPKT ROUTINE 


SEQ 0056 


po a- = 


TSv3 = 
CKRAM2 
272 
273 
274 
| 275 
276 
277 
278 
279 
280 
281 
82 
83 


ek ke ek kk ed ed od 
SSSELEAF 


tt 
3 
wr 


SeyS 
BRRE 


S32 


SOooooooooooooooooooooooooooo 
ke kk ek a ek ek ed ad od kd od ab od ed od a od 
ee ee te mee me ee ek ed ae ee ee eed ed ed ed ed ed ed ed 


SRLS 


SSRs 


ae 


3s 


FROTRIPOIR IR act aed ed ed ed ed td et ed td 
DONAUSWN 6 OBNAUSWN—O 


tt oh sO OS OS 
WWWNWWNWWNWWNWNWNWWNAWNWWA 


Ww 
MONO 
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002232 
000167 


000 
016426 
000000 


000010 
002216 


000012 
000200 


000176 


000000 


002272 


002272 


~ SBTTL 


CKRAM2 


- COMPARE RAM TO I/0 CHARACTERISTICS DATA 


ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM 
;MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 


3 INPUT: 


R4 
RS 


OUTPUT : 
CARRY 


sane EFFECTS: 
CKRAM2:: 


10$: 


20S: 


25$: 
278: 


30$: 





ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 


SET = RAM MATCHES PACKET 
CLR = RAM DOES NOT MATCH PACKET 


s IMPLICIT OUTPUT: 


THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELD IN RAM. 
RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 


#RAMDATA,R1 
SU NCNBES Re 


PC, CHKTSSR 


(R1)+,(R4)+ 
20$ 
R3 


R2 
eee 
EXTFEA 
25$ 


#10. ,RAMSIZ 
R2, ARMCHEND 
10$ 


27$ 
R2,#RMCHEND=2 
10$ 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


sSAVE THE GENERAL REGISTERS 
ADDRESS TO SAVE THE RAM DATA 
®% BYTE ADDRESS OF fey RAM DATA 
A oe THE ERROR FLAG 
AIT FOR SSR 
Set MAINTENANCE — 


+ teri fo EXPECTED 
BRANCH 4 
zSET ER ROR LAG 
ADDRESS OF yg at LOCATION 


ASSUME EXTFEA NOT SET 
21S - la EXTENDED FEATURES SET 


set RAMSIZ FOR EXTEND FEATURES 
T END OF EXTENDED BUFFER 
IF NOT AT END YET 


zAT END BRAN ANCH 

REACHED END YET ? 

BRANCH TILL “i READ 

WAS AN ERROR FOUND ? 
:BRANCH IF NOT 

:CLEAR CARRY TO SHOW ERROR 
‘SHOW G00 COMPARE 


SEQ 0057 





pe en 
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1329 011446 060207 50$: RTS PC 
1330 





: 


sRETURN 


SEQ 0058 





CKMSG 


—o 
WW 
Ww 
(VTS) 


pr ye a nye hye 
OOGRAF 


ERRESERELE 
BRNAAR WN O0ONONR WSO 


WANN NAW 
MMMM 


RRS 
wr 


72 


WWWWNWWWWW 
SN NSN NNN SY 


SOooooooooooooooooooocoocooooecoO 


mh ke et as a a as ts = ts td ts ss ss =) 4s Ss ss 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1360 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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000261 
000207 
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002274 


017406 


002312 
002456 


000002 
000014 


000200 
000016 


000012 


- SBTTL 


CKMSG = COMPARE WRITE CHAR. MESSAGE BUFFERS 


ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 


: INPUT: 


CVS Se Se Ge Ge Se Ge Be Ge Ge Se Se Ge Be Be Bee 
4 


10$: 


15$: 


25$: 


50$: 


55$: 
60$: 


CARRY 


EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADD 


" SAVREG 
MOV 





RCCV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 


SET = MESSAGE BUFFERS MATCH 
CLR -MESSAGE BUFFERS DON'T MATCH 


IMPLICIT OUTPUT: 


BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 
sSAVE R1-R5 UNTIL NEXT RETURN 
RO, RCVHIADD sSAVE RECV HIGH ADDRESS 
R1,RCVLOAD sSAVE RECV LOW ADDRESS 
K TENABLE sTESTING ABOVE 28K? 
0 38R IF NO 
=o ee sRETURN ADDRESS BIASED TO PAR6 IN RO 


R2,R5 36 
(R2) ,EXPMSG(R4) : 
(RI) -RECHSG (RG) 


(R2)+,(R1)+ 
25$ 


R 
#2,R4 
R4 414 


3GET RETURNED ADDRESS BIASED ‘0 PAR6 
WORD IN BUFFER 

sEbEAR ERROR SEEN FLAG 

sSAVE RECV FOR ERROR REPORT 

sEXPD EQUAL RECV? 

:BR IF YES 

SET ERROR SEEN FLAG 


sPOINT TO NEXT WORD ADDRESS 
sDONE FIRST 7 WORDS? 


: NO 
#X2.EXTF,.XST2(R5);1S EXTENDED FEATURES SET IN EXPD? 


RG 16 [DONE EXTENDED FEATURES WORD? 
RS TANY ERRORS SEEN? 
[SET FAILURE 
60$ : 
SET SUCCESS 
PC RETURN 


SEQ 0059 
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| 1388 .SBTTL CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS 
;* 
1390 $ 
1391 SROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
139, ;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
139 3ERROR PRINT ROUTINES. 
1394 : 
1. ; INPUT 
1397 3 RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
1398 : R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
1399 ; R2 EXPD MESSAGE BUFFER ADDRESS 
1400 ; R3 NUMBER OF BYTES TO COMPARE 
140 ;OUTPUT 
1404 ; CARRY SET = MESSAGE BUFFERS MATCH 
1405 ; CLR = MESSAGE BUFFERS DON'T MATCH 
1407 ;IMPLICIT OUTPUT: 
1409 : EXPMSG BUFFER IS SET TO EXPD DATA 
1410 : RECMSG BUFFER IS SET TO RECV DATA 
1411 ; RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
1412 ; RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
1414 - 
1415 011570 CKMSG2: : 
1416 011570 SAVREG :SAVE R1-RS5 UNTIL NEXT RETURN 
1417 011574 020327 000144 CMP R3 -#RECHSG-EXPMSG; @aD IS COUNT ABOVE MAX ALLOWED? 
1418 011600 003412 BLE 5 NO 
1419 011602 012703 000144 MOV #RECMSG-EXPMSG.R3:aaD 
1420 011606 PRINTF #DEBUGMSG : 
011606 012746 011722 MOV #DEBUGMSG, -(SP) 
011612 012746 000001 MOV #1,-(SP) 
011616 010600 MOV P, 
011620 104417 TRAP — CS$PNTF 
011622 062706 ADD #4,SP 
1421 011626 010037 002274 5$: MOV RO. RCVHIADD ZSAVE RECV HIGH ADDRESS 
1422 011632 010137 002276 MOV R171. RCVLOAD SSAVE RECV LOW ADDRESS 
1423 011636 005737 003124 TST KTENABLE STESTING ABOVE 28K? 
1424 011642 001403 BEQ 10$ 7BR IF NO 
1425 011644 004737 017406 JSR PC, SETMAP 3RETURN ADDRESS BIASED TO PARG IN RO 
1426 011650 010001 MOV RO.R1 GET RETURNED ADDRESS BIASED TO PAR6 
1427 011652 005004 10$: CLR RG [WORD IN BUFFER 
1428 011654 005005 CLR RS [CLEAR ERROR SEEN FLAG 
1429 011656 111264 002312 15$:  MOVB  (R2),EXPMSG(R4) :SAVE EXPD FOR ERROR REPORT 
1430 011662 111164 002456 MOVE (RI) ,RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 
1431 011666 122221 CMPB —s- (R2) +, (R1) + 3EXPD EQUAL RECV? 
1432 011670 001401 BEQ 25$ 
1433 011672 005208 INC RS SET ERROR SEEN FLAG 
1434 011674 062704 000001 25$: ADD #1,R4 ‘POINT TO NEXT BYTE 
1435 011700 020403 CMP R4.R3 ;DONE ALL BYTES? 
1436 011702 002001 BGE 50$ F YES 
1437 011704 000764 BR 15$ £00 NEXT BYTE 
1438 011706 005705 50$: TST R5 Y ERRORS SEEN? 
1439 011710 001402 BEQ 55$ ‘BR IF NO 
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1440 011712 060241 CLC 3SET FAILURE 
1441 011714 000401 BR 60$ : 
1t6 011716 000261 55$: SEC :SET SUCCESS 
ret 011720 000207 60$: RTS PC :RETURN 
1445 011722 120 122 117 DEBUGMSG: sASCIZ ‘PROGRAM INTERNAL ERROR =CKMSG2 MESSAGE BUFFER EXCEEDED=" ; aad 
1446 01201 045 116 045 FERCM: .ASCII /2NZA_ *x/ 
1202 040 040 124 ERCM: .ASCIZ / TSSR ERROR CODE REC'D = / 
1448 012056 056 056 056 SIMSG: .ASCIZ /.... AFTER DOING SOFT INIT/ 
1449 012111 124 105 123 TINERR: oy SIEST: cool 


| Ty a 
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CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS SEQ 0062 
145 
1038 
1454 s@ 
1455 3 
rt sPRINT ROUTINE TO FATAL SOFT INIT ERRORS 
1458 : INPUT: 
1459 : 
Ho : R1 CONTENTS OF TSSR AT ERROR 
66 sSIDE EFFECTS: 
Hire: $ EXECUTES DROP UNIT TO CEASE TESTING 
1466 ;- 
1467 
1468 012124 BGNMSG SFIMSG 
012124 SFIMSG:: 
1469 012124 004737 006022 JSR PC,PRITSSR PRINT CONTENTS OF TSSR REGISTER 
1470 012130 004737 017272 JSR PC, CKDROP sDROP UNIT, IF ALLOWED | 
1471 012134 ENDMSG 
012134 L10003: 
012134 104423 TRAP CSMSG 
138 
1474 RINT A whe. | TO PRINT THE CONTENTS O 
Hy 4 ;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 
1477 INPUTS: 
1478 SM 
1479 : ey TSSR CONTENTS 
sant 3 R4 ADDRESS OF COMMAND PACKET 
1482 $= 
1483 
1484 012136 BGNMSG PKTSSR 
012136 PKTSSR:: 
1485 012136 004737 006022 JSR s »PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
1486 012142 012700 000004 . MOV :NO. OF WORDS K 
1487 012146 004737 007460 JSR +5 *PRIPKT sPRINT THE CONTENTS OF COMMAND PACKET 
1488 012152 ENDMSG 
012152 L10004: 
012152 104423 TRAP CS$MSG 
1489 
1490 ge 
1491 ;PRINT ROUTINE TO PRINT THE CONTENTS OF 
136 3TSSR AND A GET STATUS COMMAND PACKET. 
1494 : INPUTS: 
1495 : 
1496 5 R1 TSSR CONTENTS 
1497 $ R4 ADDRESS OF COMMAND PACKET 
1498 r 
1499 :- 
1500 
1501 012154 BGNMSG PKTGETS 
012154 PKTGETS:: 








-————————- ———-- 
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| CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS SEQ 0063 
| 4502 012154 004737 00602 JSR —s- PC, PRITSSR PRINT THE CONTENTS OF TSSR REGISTER 
1503 012160 012700 00000 MOV ow, NO. OF WORDS IN GET STATUS PACKET 
1504 012164 004737 007460 JSR PCPRIPKT PRINT THE CONTENTS OF COMMAND PACKET 
1508 012170 ENDMSG 
012170 110005: 
013170 104423 TRAP —CSMSG 
1506 
1507 
1508 34 
1509 PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
1511 ‘INPUTS: 
1512 3 
1518 ; RI TSSR CONTENTS 
1514 ; RG ADDRESS OF COMMAND PACKET 
1516 
1517 012172 BGNMSG SFFMSG 
012172 SFFMSG:: 
1518 612172 004737 006022 JSR __—s~PC, PRITSSR PRINT CONTENTS OF TSSR REGISTER 
1519 012176 ENDMSG 
012176 110006: 
012176 104423 TRAP —CSMSG 
125 
1502 .SBTTL PKIMES = PRINT TSSR AND MESSAGE BUFFER 
ae 
1524 : 
1595 PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
1336 ;BUFFER FOR ERROR REPORTS 
1528 * INPUTS: 
1529 é 
1530 : RI CONTENTS OF TSSR 
1531 : R2 LOW ORDER MESSAGE BUFFER 
1532 : RS HIGH ORDER MESSAGE BUFFER ADDRESS 
1935 : NOTE: R3 1S IGNORED IF KTENABLE FLAG I$ CLEAR 
1535 012200 BGNMSG PKTMES 
012200 PKTMES:: 
1536 012200 004737 006022 JSR —sPC, PRITSSR PRINT CONTENTS OF TSSR 
1537 012206 010200 MOV —s- R2- RO SLOW ORDER ADDRESS 
1538 012206 010301 MOV —sRS-RT HIGH ORDER ADDRESS 
1539 012210 004737 014332 JSR «PCL PRMESS PRINT THE MESSAGE BUFFER 
1540 012214 ENDMSG 
013914 110007: 
013214 104423 TRAP _CSMSG 


1541 
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AREAS 
- PRINT TEST ADDRESS AND TSSR 


004737 


012700 
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010364 
000002 
006022 


000007 
002216 
000010 
014642 


-SBTTL ADDSSR = PRINT TEST ADDRESS AND TSSR 


3+ 
PRINT ROUTINE TO PRINT THE CONTENTS OF 
:TSSR AND A MEMORY TEST ADDRESS 


INPUTS: 


ADDSSR:: 


L10010: 


+ 


RS FIRST DEVICE UNIBUS ADDRESS 
ERRHI HIGH ORDER MEMORY TEST ADDRESS 
ERRLO LOW ORDER MEMORY TEST ADDRESS 


BGNMSG ADDSSR 


Se PC ,PRITADD :PRINT Saenr tsa” ADDRESS 


TSSR(R5) ,R1 2GET CURRENT 
JSR PC,PRITSSR PRINT THE CONTENTS OF TSSR REGISTER 
ENDMSG 
TRAP CS$MSG 


-SBTTL MSGEXP = PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 


SPRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
SIMPLICIT INPUTS: 


5$: 
L10011: 


EXPMSG = EXPECTED MESSAGE apt 

RECMSG = SECEIVED MESSAGE BUFFER 

RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGEXP 
“MOV #7.RO 


sASSUME NO EXT Ps cae 


TST EXTFEA sEXT sCAnnes 
5$ NO 


BEQ BR 
MOV #8. ,RO sEXT FEATURE BUFFER IS 8 WORDS 
SR PC ,PRMSGEXP PRINT EXPD/RECV MESSAGE BUFFERS 
ENDMSG 
TRAP CSMSG 


SEQ 0064 
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1288 ~SBTTL FIFEXP = PRINT FIFO EXP/RECV DATA 
+ 
1586 ; 
Ft sPRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 
1589 $ R1 - BYTE COUNT 
1590 s 
133) sIMPLICIT INPUTS: 
1593 3 EXPMSG = EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
1238 3 RECMSG = RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
1596 012260 BGNMSG FIFEXP 
01 FIFEXP:: 
1597 012260 PRINTX hal oe Ri sPRINT BYTES TRANSFERRED 
012260 010146 MOV 
012262 012746 012332 MOV me IF INSG, =(SP) 
012266 012746 000002 . MOV #2,- 
012272 010600 MOV SP, RO” 
012274 104415 TRAP CSPNTX 
012276 062706 000006 ADD #6,SP 
1598 b13809 PRINTX #FIF2MSG SPRINT HEADER MSG 
012302 012746 012401 MOV #F IF2MSG,-(SP) 
012306 012746 000001 MOV #1,-(SP) 
012312 010600 MOV SP RO 
012314 104415 TRAP CS$PNTX 
012316 062706 000004 ADD #4,SP 
1599 012322 010100 MOV R1,R0 :GET BYTE COUNT 
1600 012324 004737 015212 JSR PC ,PRBYTEXP *PRINT FIFO BYTES IN ERROR 
1601 012330 ENDMSG 
012330 L10012: 
012330 104423 TRAP C$MSG 
1602 012332 045 116 045 FIFIMSG: eASCIZ ‘%NZA NUMBER OF BYTES TRANSFERRED = %v2° 


1603 012401 045 
1604 


045 FIF2MSG: - eASCIZ ‘“ZNZA FIFO DATA BYTES IN ERROR: 
1605 





a a a a a aS 


B 6 
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MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS SEQ 0066 
1607 .SBTTL MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS 
3+ 
1609 : 
1619 SPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
1612 ; 
1613 S IMPLICIT INPUTS: 
1615 : EXPMSG = EXPECTED MESSAGE BUFFER 
1616 : RECMSG = RECEIVED MESSAGE BUFFER 
1617 : RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
1618 ; RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
1620 012440 ‘ BGNMSG MSGSTAT 
012440 MSGSTAT:: 
1621 012440 012701 012502 MOV #STATCOD,R1 ZASCII ADDRESS TABLE 
1622 012444 012100 10$: MOV (R1)#,RO DONE ALL MSG LINES? 
1623 012446 001410 BEQ 20$ 
1624 012450 PRINTX RO {PRINT STATUS BIT NAMES 
012450 010046 MOV RO,=(SP) 
012452 012746 000001 MOV #1.=(SP) 
012456 010600 MOV SP_RO 
012460 104415 TRAP — CS$PNTX 
012462 062706 000004 ADD #4,SP 
1625 012466 000766 BR 10$ :D0 ANOTHER MSG LINE 
1626 012470 012700 000012 20$: MOV #10. ,RO [NUMBER OF WORDS IN A READ STATUS BUFFER 
1627 012474 004737 014642 JSR PC ,PRMSGEXP [PRINT EXPD/RECV MESSAGE BUFFERS 
1628 012500 ENDMSG 
012500 L10013: 
“es 012500 104423 TRAP  C$MSG 
1630 012502 012520 012562 012653 STATCOD: .WORD 1$,2$,3$.4$,5$,6$,0 
1631 012520 045 116 045 1$:.ASCIZ ‘'%NZA Tape Bus Signals in Word #8:° 
1632 012562 045 116 045 2$:.ASCIZ ‘ZNZA ARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2>° 
1633 012653 045 116 045 3$:.ASCIZ ‘NA TRESVocta> IIDENT<11> IHER <8> JIONL<5> IFBY<1>° 
1634 012744 045 116 045 4$::ASCIZ ‘%N%A IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<0>" 
1635 013035 045 116 045 5$:.ASCIZ ‘%N%A Tape Bus Signals in 
1636 013077 045 116 045 6$:.ASCIZ_ 1 2NEA DATMIS<7> ues OUTRDY<5> INRDY<4>* 
1638 ; 
i 
1641 .SBTTL MSGLOOP = PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
1643 ; 
1644 [PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
1646 SIMPLICIT INPUTS: 
1648 : EXPMSG = EXPECTED MESSAGE BUFFER 
1649 : RECMSG = RECEIVED MESSAGE BUFFER 
1650 : RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
1651 : RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
1828 013154 ? BGNMSG MSGLOOP 
013154 MSGLOOP: : 
1654 013154 012701 013216 MOV #LOOPCOD,R1 ZASCII ADDRESS TABLE 








TSV3 = a AREAS 
MSGLOOP - 


PRIN 
1933 013160 
1656 013162 
1657 013164 
013164 
013166 
013172 
013174 
013176 
1658 013202 
1659 013204 
1660 013210 
1661 013214 
013214 
013214 
eee 
1663 013216 
1664 013236 
1665 013311 
1666 013410 
1667 013507 
1668 013606 
1669 013705 
1670 014004 
1671 


MACRO M1113 25-MAY-82 09:19 PAGE 38-1 
NT LOOPBACK HEADER AND MESSAGE BUFFERS 


6 


eee et MSG LINES? 
PRINT STATUS BIT NAMES 


300 ANOTHER no sina 
ER OF 


A READ STATUS BUFFER 


NUMB WORD 
2PRINT EXPD/RECY MESSAGE BUFFERS 


1$,2$,3$,4$,5$.6$.,7$.,0 
SENZA Tape Bus Loopback Signals in Word #8:° 


2<14> 
IWRT=>1 IDENT<11> IREV 
IEDIT=>IHER <08> 
ITAD1=>IONL <05> 


IRWU =>IRWD <02> IFEN 


012100 10$: MOV (R1)+,RO0 
001410 EQ 20$ 
PRINTX RO 
010046 MOV RO,=(SP) 
012746 000001 MOV #1,-(SP) 
010600 MOV SP,RO 
104415 TRAP  C$PNTX 
062706 000004 ADD #4,SP 
000766 BR 10$ 
012700 000012 20$: MOV #10. RO 
737 014642 JSR PC ,PRMSGEXP 
ENDMSG 
L10014: 
104423 TRAP  C$MSG 
013236 013311 013410 LOOPCOD: . WORD 
045 116 045 1$:.ASCIZ 
045 116 045 2$:.ASCIZ ‘%NZA PARERR 
045 116 045 3$:.ASCIZ ‘%N%A IHISP=>IEOT<12> 
045 116 045 4$:.ASCIZ ‘%N%A IWFEM =>IFMK<09> 
045 116 045 5$:.ASCIZ ‘%NZA 1TADO=>IRDY<06> 
045 116 045 6$:.ASCIZ ‘%N%A IREW =>IDBY<03> 
045 116 045 7 -ASCIZ | LINTA 160" =>IFPT<00>° 


Hee tapes Sa 


IFAD 
IERASE=>ILDP <04>° 


=>IFBY <O1>° 


SEQ 0067 





é 
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MSGSUB = PRINT WRITE SUBSYSTEM MESSAGE BUFFER SEQ 0068 

1674 ; .SBTTL MSGSUB = PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
1676 : 
1677 [PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
1679 : 
1680 ‘IMPLICIT INPUTS: 
1682 : EXPMSG = EXPECTED MESSAGE BUFFER 
1683 : RECMSG = RECEIVED MESSAGE BUFFER 
1684 : RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
1685 ; RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
1687 014032 ; BGNMSG MSGSUB 

014032 MSGSUB: : 
1688 014032 012700 000012 “OV #10. RO ZSIZE OF WRITE SUBSYSTEM BUFFER 
1689 014036 004737 014642 JSR PC ,PRMSGEXP SPRINT EXPD/RECV MESSAGE BUFFERS 
1690 014042 ENDMSG 

014042 1.10015: 

014042 104423 TRAP  C$MSG 
1691 . 
1692 
1693 
1698 
1696 .SBTTL MEMADD = PRINT MEMORY ADDRESS DATA ERROR 

z¢ 

1698 ; 
1699 [PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
1701 SIMPLICIT INPUTS: 
1703 : ERRHI = MEMORY ERROR HIGH ORDER ADDRESS 
1704 : ERRLO = MEMORY ERROR LOW ORDER ADDRESS 
1705 : EXP - EXPECTED DATA 
1706 : RECV = RECEIVED DATA 
1708 014044 ; BGNMSG MEMADD 

014044 MEMADD: : 
1709 014044 004737 010250 JSR PC,PRIADD :PRINT MEMORY ADDRESS IN ERROR 
1710 014050 013701 002222 MOV EXPD,R1 [GET EXPD DATA 
1711 014054 013702 002224 MOV RECV, R [GET RECEIVED DATA 
1712 014060 004737 010032 JSR PC ,PRIXOR [PRINT EXPD/RECV 
1713 014064 ENDMSG 

014064 L10016: 

014064 104423 TRAP  C$MSG 


1714 





en 
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002232 


177777 
177777 


177400 


177777 
177777 


002222 
002224 


014246 
000005 


000014 
002272 
002272 


000010 
002272 


116 


002224 
002222 


045 


SEQ 0069 
-SBTTL PRAMPKT = PRINT RAM AND PACKET DATA 


SPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
WHEN THE RAM DATA DOES NOT MATCH. 


3 INPUTS: 


R4 POINTER TO COMMAND PACKET 


IMPLICIT INPUTS: 


RAMDATA DATA AS READ FROM - RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 
IF RAMSIZ=0 THEN DEFAULT TO 8. 


f IMPLICIT OUTPUTS: 


7$: 


10$: 


5 
0$: 
5 


mn=— 
AMM 
oe ee 


RAMASC: 


RAMSIZ SET TO 0 


SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
MOV #RAMDATA,R1 ‘DATA FROM THE R 

CLR R2 : INIT BYTE NUMBER 

CMPB —s« (R11) +, (RG) + + COMPARE EXPECTED, RECEIVED 
BNE 7$ ‘BR IF NO MATCH 

FORCERROR 7$,NOTSSR 

GR 10$ | 

MOVB =1(R1),R5 ‘ee RECV RAM DATA 

MOVB =1(R4).R3 :GET EXPD PACKET DATA 

XOR R3 :XOR EXPD/RECV 

BIC #177400,R3 ;LOW BYTE ONLY 

MOVB =1(R1) RCV GET RECEIVED RAM DATA 

MOVB <-1(R4).E :GET EXPECTED RAM DATA 
PRINTB #RAMASC ERD RECV,EXPD,R3 

MOV R3,-(SP) 

MOV EXPD,=(SP) 

MOV RECV,=(SP) 

MOV R2,=(SP) 

MOV #RAMASC ,-(SP) 

MOV #5,-(SP) 

MOV SP,RO 

TRAP  C$PNTB 

ADD #14,SP 

INC SUPDATE BYTE COUNT 

TST RAMSIZ *DEFAULT TO 8.? 

BEQ [BR IF YES 

CMP R2,RAMSIZ 3DONE ALL BYTES? 

BLE 5$ :BR IF NO 

BR 25$ 

chp R248. :DONE DEFAULT NUMBER OF BYTES? 
CLR RAMSIZ :SET DEFAULT RAMSIZ 

RTS PC ; RETURN 

-ASCIZ "2NZA BYTE: %D2%A RAM: ZO3%A Packet: %O3%A XOR:%03° 
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PRAMPKT = PRINT RAM AND PACKET DATA SEQ 0070 


-EVEN 


posers is 





1782 


= 
&* 


S 
& 


3 et SS os os ot SS ee ee ed ed nd aed od ed wd 
ss 
wine 
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FASISISIRASE 


1 
1 
1 
1 
1 
1 
14424 
1 
1 
1 


14440 
014440 
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PRMESS = PRINT CONTENTS OF MESSAGE BUFFER 


003124 


014510 
000003 


000010 
014555 
000001 
000004 
017406 
014613 


000003 


000010 
000007 





~SBTTL PRMESS = PRINT CONTENTS OF MESSAGE BUFFER 


iTHIS ROUTINE PRINTS THE CONTENTS OF 
THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE 


:TSV-05. 

INPUT: 

: RO LOW ORDER ADDRESS OF MESSAGE BUFFER 

: HIGH ORDER ADDRESS OF MESSAGE BUFFER 
; NOTE: R1 IS IGNORED IF KTENABLE FLAG Is CLEAR 


s THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


PRMESS: 


SAVREG sSAVE THE REGISTERS 

MOV RO,R5S SAVE LOW ORDER ADDRESS 

TST KTENABLE ADDRESS ABOVE 28K? 

BNE 10$ 3BR IF YES 

CLR R1 2SET HIGH ORDER ADDRESS TO 0 


10$: MOV R1,R3 SAVE HIGH ORDER ADDRESS 
ROL RO SHIFT BIT15 TO C BIT 
ROL R1 SHIFT TO HIGH ORDER FOR PRINTOUT 
— gprs Tl ae PRINT MESSAGE BUFFER ADDRESS 


MOV #PROASC,=(SP) 
MOV #3,-(S 
MOV SP.RO 
TRAP — CS$PNTX 
ADD #10,SP 
PRINTX M#PRIASC ;PRINT HEADER FOR CONTENTS 
MOV #PRIASC,=(SP) 
MOV #1,-(SP5 

V SP_RO 
TRAP — CS$PNTX 
ADD #4,SP 
CLR R4 ZNUMBER OF THE NEXT WORD 
MOV R5,R1 [COPY LOW ORDER ADDRESS 
MOV R3.RO :COPY HIGH ORDER ADDRESS 
BEQ 208 :BR IF NOT ABOVE 26k 
JSR PC, SETMAP SSETUP PAR ADDRESS IN RO 
MOV °RS [GET PAR FORMAT ADDRESS. ABO ABOVE 28k 

20$:  PRINTX #PRASC,R4,(R5)+ :PRINT THE CONTENTS OF MEMORY BUFFER 
MOV (R5)+, =(SP) 
MOV 4,-(§ 
MOV #PRASC,-(SP) 
MOV #3,-(S 
MOV SP.RO 
TRAP — CS$PNTX 
ADD #10,SP 
INC R4 :NUMBER OF THE NEXT 
CMP R4,M7 [DONE ALL YET 
50 {BRANCH iF ALL * DONE 


SEQ 0071 


eee ee ee 
bs ° a AREAS MACRO M1113 25-MAY-82 09:19 PAGE 41-1 


ss PRINT CONTENTS OF MESSAGE BUFFER SEQ 0072 
1806 014474 pos 61 BLT 20$ T FIRST 7 WORDS 

1807 014476 032763 000200 000012 BIT one EXTF, xST2(R35- EXTENDED FEATUTES ON ? 

1808 014504 001355 BNE 20$ PRINT EXTENDED STATUS WORD 

1 014506 000207 50S: RTS PC RETURN 

1811 014510 045 116 045 PROASC: .ASCIZ ‘ZNZA Message Buffer Address = , 201205" 

1812 014555 045 116 045 PRIASC: .ASCIZ ‘ZNZA Message Buffer Contents:' 

+ 3 014613 045 116 045 PRASC: ie *ZNZA WordZD1%A: %0° 
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PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS SEQ 0073 
1816 -SBTTL PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS 
1818 : 
1819 ;ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
1821 ; RO = NUMBER OF WORDS IN BUFFER 
1898 S IMPLICIT INPUTS: 
1825 ; EXPMSG = EXPECTED MESSAGE BUFFER 
1826 : RECMSG = RECEIVED MESSAGE BUFFER 
1827 : RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
1828 a RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
1830 014642 PRMSGEXP: : 
1831 014642 SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
1832 014646 010005 V RO,RS 7SAVE NUMBER OF WORDS 
1833 014650 013700 002276 MOV RCVLOADD RO 7GET RECV LOW ADDRESS 
1834 014654 010004 MOV RO,R4 :COPY LOW ADDRESS 
1835 014656 013701 002274 MOV RCVHIADD 1 ZGET RECV HIGH ADDRESS 
1836 014662 006100 ROL RO SHIFT BIT15 TO C BIT 
1837 014664 006101 ROL R1 SHIFT TO HIGH ORDER FOR PRINTOUT 
1838 014666 PRINTX #PRMSGO, R1,R4  :PRINT MESSAGE BUFFER ADDRESS 
014666 010446 MOV R4,-(SP) 
014670 010146 MOV R1,-(SP) 
014672 012746 015022 MOV #PRMSGO,-(SP) 
014676 012746 000003 MOV #3,-(SP 
014702 010600 MOV SP,RO 
014704 104415 TRAP C$PNTX 
014706 062706 000010 ADD #10,SP 
1839 014712 PRINTX #PRMSG1 :PRINT HEADER FOR CONTENTS 
014712 012746 015067 MOV #PRMSG1,-(SP) 
014716 012746 000001 MOV #1,-(SP) 
14722 010600 MOV SP,RO 
014724 104415 TRAP — CSPNTX 
014726 062706 000004 ADD 44,5 
1840 014732 005004 CLR R4 ZNUMBER OF THE CURRENT WORD 
1841 014734 012701 002312 MOV #EXPMSG,R1 “GET EXPD BUFFER ADDRESS 
1842 014740 012702 002456 MOV #RECMSG. R2 [GET RECV BUFFER ADDRESS 
1843 014744 011100 20$: MOV (R1),RO- 2GET EXPD 
1844 014746 011203 MOV (Re) °R3 3GET RECV 
1845 014750 XOR RO,R =MOR EXPD/RECV 
1846 014760 PRINTX #PRNSGE R4, (R1) +. (R2)+,R3 
014760 010346 MOV R3,- 
014762 012246 MOV tadye® PtSP) 
014764 012146 MOV (R1)+, 5 (SP) 
014766 010446 MOV R4,-(§ 
014770 012746 015125 MOV OPRMSCO. = (SP) 
014774 012746 000005 MOV #5,-(SP) 
5000 019600 SP.RO 
5002 104415 TRAP  C$PNTX 
706 000014 ADD #14,SP 
5204 INC RG ZNUMBER OF THE NEXT 
CMP R4.RS5 “DONE ALL YET? 
BGE 50$ BR IF YES 
BR 20$ [D0 ANOTHER 


50$: RTS PC ; RETURN 





6 
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PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS SEQ 0074 





116 045 PRMSGO: .ASCIZ ‘ZNZA Message Buffer Address = %01%05° 
116 045 PRMSG1: .ASCIZ ‘ZNZA Message Buffer Contents:' 
116 045 PRMSG2: oa "ZNZA WORD #2D2%2A EXPD: Z06%A RECV: %06%A KOR: %06° 


| Kk 6 
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PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER SEQ 0075 
1859 .SBTTL PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
:* 
1861 
186¢ SROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
1865 : ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
1865 ; RO - NUMBER OF BYTES IN BUFFER 
1867 S IMPLICIT INPUTS: 
1869 : EXPMSG = EXPECTED MESSAGE BUFFER 
1870 zo RECMSG = RECEIVED MESSAGE BUFFER 
1872 015212 PRBYTEXP: : 
1873 015212 SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
1874 015216 01 MOV RO,RS ZSAVE NUMBER OF BYTES 
1875 015220 005037 002310 CLR PRMNO SINIT ERROR COUNT 
1876 015224 005 CLR RG ZNUMBER OF THE CURRENT BYTE 
1877 015226 012701 002312 MOV #EXPMSG,R1 :GET EXPD BUFFER ADDRESS 
1878 015232 012702 002456 MOV #RECMSG.R2 [GET RECV BUFFER ADDRESS 
1879 015236 111100 20$: MOVB  (R :GET EXPD BYTE 
1880 015240 042700 177400 BIC #*C<377>,R0 :CLEAR UPPER BYT 
1881 015244 110037 015560 MOVB = RO PRBEXP SSAVE FOR ERROR REPORT 
1882 015250 111203 MOVB = (R2) ,R3 :GET RECV BYTE 
1883 015252 042703 177400 BIC pecdi?>, R3 :CLEAR UPPER BYTE 
1884 015256 110337 015562 MOVB  R3,PRBREC :FOR ERROR REPORT 
1885 015262 XOR RO.R3 ZXOR pEXPD/RECV 
1886 015272 122122 CMPB ss (R'1) +, (R2)+ TEXPD = RECV? 
1887 015274 001431 BEQ 30$ ‘BR OF YES 
1888 015276 005237 002310 INC PRMNO [UPDATE ERROR COUNT 
1889 015302 023727 002310 000010 CMP PRMNO, #8. ‘PRINT ED. 8? 
1890 015310 101023 BHI 30 BR IF 
1891 015312 27$:  PRINTX #PRBMSG,R4,PRBEXP, PRBREC, ERS 
015312 010346 MOV R3,-(SP) 
015314 013746 015562 MOV PRBREC,=(SP) 
015320 013746 015560 MOV PRBEXP.=(SP) 
015324 010446 MUY R4,-(SP) 
015326 012746 015426 MOV #PRBMSG,-(SP) 
015332 012746 000005 MOV #5,-(SP) 
015336 010600 MOV SP,RO 
015340 104415 TRAP  C$PNTX 
015342 062706 000014 ADD #14,SP 
1892 015346 FORCEXIT 50$ yaad 
1893 015356 000404 BR 35$ saad 
1894 015360 30S: 
1895 015360 FORCERROR 27$,NOTSSR aap 
1896 015370 35$: saad , 
1897 015370 005204 INC RG ZNUMBER OF THE NEXT ; 
1898 015372 020405 CMP R4,RS5 [DONE ALL YET? 
1899 015374 002001 BGE 50$ zBR IF Y 
1900 015376 000717 BR 208 0 ANOTHER 
1901 015400 50$: | PRINTX #PRBTOT, PRINO PRINT TOTAL ERROR COUNT 
015400 013746 002310 | MOV PR 
015404 012746 015513 MOV apReror SSP) 
015410 012746 000002 MOV 7 (SPS 
015414 010600 MOV oo eas 
015416 104415 TRAP  CSPNTX 
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062706 000006 ADD #6,SP 
000207 - RTS PC :RETURN 


045 116 PRBMSG: .ASCIZ ‘ZNZA BYTE #2D2%A_ EXPD: %03%A RECV: %03%A XOR: %03° 
045 116 PRBTOT: .ASCIZ ‘ZN%A NUMBER OF BYTES IN ERROR = %D2° 


000000 PRBEXP: .WORD 0 sEXPD 
000000 PRBREC: .WORD 0 sRECV 


BeeSseeS 
ee ee ge 


PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER SEQ 0076 _-. 
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EXPREC = PRINT EXPD/RECV WORD DATA 


004737 010032 


—— Ss Sa ss SS 3 SS 


SEQ 0077 


. ~SBTTL EXPREC = PRINT EXPD/RECV WORD DATA 


SPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 


INPUTS: 
: R1 RECEIVED DATA 
: R2 EXPECTED DATA 
BGNMSG EXPREC 
EXPREC:: 
JSR PC,PRIXOR :PRINT THE DATA 
ENDMSG 
110017: 
TRAP —C$MSG 


6 
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EXPBREC = PRINT EXPD/RECV BYTE DATA SEQ 0078 
1929 . .SBTTL EXPBREC = PRINT EXPD/RECV BYTE DATA 
Z + 
1931 : 
1988 SPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 
1934 : 
1935 : INPUTS: 
1936 : 
1937 : R1 RECEIVED DATA BYTE 
1938 : R2 EXPECTED DATA BYTE 
1939 3 
1940 - 
1941 
1942 015572 BGNMSG EXPBREC 
015572 EXPBREC: : 
1943 015572 004737 007702 JSR PC,PRIBXOR :PRINT THE DATA 
1944 015576 ENDMSG 
015576 L10020: 
015576 104423 TRAP — C$MSG 
1945 
1946 
1947 
1948 
1949 .SBTTL RAMERR = PRINT RAM AND PACKET DATA 
1951 : 
195@ :PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
1954 : INPUTS: 
1955 : 
1956 : R4 POINTER TO COMMAND PACKET 
1958 S IMPLICIT INPUTS: 
1960 : RAMDATA DATA AS READ FROM THE RAM 
1961 : RAMS1Z NUMBER OF BYTES IN PACKET 
1962 : IF RAMSIZ=0 THEN DEFAULT TO 8. 
1964 SIMPLICIT OUTPUTS: 
1966 : RAMSIZ SET TO 0 
1967 : 
1968 
1969 015600 BGNMSG RAMERR 
015600 RAMERR: : 
1970 015600 004737 014066 JSR PC ,PRAMPKT :PRINT RAM/PACKET DATA 
1971 015604 ENDMSG 
015604 L10021: 
015604 104423 TRAP _ C$MSG 
1993 
197% .SBTTL RAMTADD = PRINT TEST ADDRESS, RAM AND PACKET DATA 
g@ ; 
1976 : 
1977 SPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
1979 * INPUTS: 


TSV3 = GLOBAL AREAS 
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RAMTADD = PRINT TEST ADDRESS, RAM AND PACKET DATA SEQ 0079 
1980 : 
Hs 3 : RG POINTER TO COMMAND PACKET 
1988 IMPLICIT INPUTS: 
1985 : RAMDATA DATA AS READ FROM THE RAM 
1986 5 RAMSIZ NUMBER OF BYTES IN PACKET 
1987 : F RAMSIZ=0 THEN DEFAULT TO 8. 
1988 : ERRHI HIGH ORDER TEST S 
24 : ERRLO LOW ORDER TEST ADDRESS 
1991 + IMPLICIT OUTPUTS: 
Ie 
199 RAMSIZ SET T0 0 
1994 ic 
1995 
1996 015606 BGNMSG RAMTADD 
015606 RAMTADD: : 
1997 015606 004737 010344 JSR PC,.PRITADD ;PRINT TEST ADDRESS 
1998 015612 004737 014066 JSR PC ,PRAMPKT ZPRINT RAM/PACKET DATA 
1999 015616 ENDMSG 
015616 L10022: 
015616 104423 TRAP CSMSG 
5008 
a4 -SBTTL RAMEXP = PRINT RAM EXPD/RECV DATA 
5004 , 
2005 sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
2007 ; INPUTS: 
2008 $ 
2009 3 R1 RECEIVED ore 
2010 8 R2 EXPECTED DAT 
2011 ; R4 CONTROLLER RAN ADDRESS 
2012 $= 
2013 
2014 015620 BGNMSG RAMEXP 
015620 RAME XP 
2015 015620 042701 177400 BIC #*C<377>,R1 sSAVE EXPD RAM DATA BYTE 
2016 015624 042702 177400 BIC #*C<377>,R2 ;SAVE EXPD RAM DATA BYTE 
2017 015630 004737 010156 JSR PC,PRIRAM ;PRINT THE RAM ADDRESS 
2018 015634 004737 010032 JSR PC,PRIXOR SPRINT THE DATA 
2019 015640 ENDMSG 
015640 110023: 
2020 015640 104423 TRAP CSMSG 
$955 -SBTTL TIMEXP = PRINT TIMER A,B AND EXP/REC 
g@ 
2023 $ 
2024 zPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
$050 ;AND TIMER A,B HEADER MESSAGE 
2027 ; INPUTS: 
2028 Fi 
2029 : R1 RECEIVED DATA 
2030 3 R2 EXPECTED DATA 
















TSV3 = GLOBAL AREAS MACRO bit & Fs ales 09:19 PAGE 45-2 
TIMEXP = PRINT TIMER A,B AND EXP/R SEQ 0080 


2031 i- | 
2032 
2033 01564 BGNMSG TIMEXP 
01564 TIMEXP: : 
2034 01564 PRINTX #TIMSGO :PRINT HEADER 
015642 012746 015670 MOV #TIMSGO,-(SP) 
015646 012746 000001 MOV #1,-(SP) 
015652 010600 MOV SP,RO 
015654 104415 TRAP  CS$PNTX 
015656 062706 000004 ADD #4,SP 
2035 015662 004737 010032 JSR PCPRIXOR ;PRINT THE DATA 
2036 015666 ENDMSG 
L10024: 
104423 TRAP — C$MSG 


015666 
38 
7) 015670 045 116 045 oe eASCIZ "ZNZA TIMER A STATUS IS IN BIT 32NZA TIMER B STATUS IS IN BIT 2° 
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TSV3_= GLOBAL AREAS 


BADSSR = PRINT TSSR ERRORS ON DATA TRANSFERS 


4 
2055 015770 
015770 
2056 015770 


2057 015772 
2058 oiapne 


016014 
2059 016020 
2060 016022 
2061 016026 

016026 


016026 
2062 016050 
2063 


104423 
045 





177400 


016030 
000002 


000006 
006022 


116 


045 


-SBTTL BADSSR = PRINT TSSR ERRORS ON DATA TRANSFERS 
i+ 


[PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
INPUTS: 


: R1 CONTENTS OF TSSR 
: R2 DATA WRITTEN (8 BITS) 
BGNMSG BADSSR 
BADSSR:: 
V R2,=(SP) ZSAVE DATA TRANSFERRED 
C #177400,R2 [GET JUST ONE BYTE 


BI 
PRINTB #XFERASC,R2 
MOV P 


2.7(S 
MOV #XFERASC,=(SP) 
MOV #2,~(SP) 

SPR 


MOV RO 
TRAP CS$PNTB 
ADD #6,SP 
MOV (SP)+,R2 sRESTORE R2 
JSR PC,PRITSSR [DECODE TSSR CONTENTS 
ENDMSG 
L10025: 
TRAP CS$MSG 
XFERASC: eASCIZ ‘ZNZA Data Transferred = %03' 


SEQ 0081 
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GLOBAL SUBROUTINES SECTION 





? 


-SBTTL GLOBAL SUBROUTINES SECTION 


p++ 
; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
3 THAT ARE USED IN MORE THAN ONE TEST. 


SEQ 0082 


Pa aa and) ape ge ia ie 
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SOFINIT = SOFT INITIALIZE OF CONTROLLER SEQ 0083 
sore .SBTTL SOFINIT = SOFT INITIALIZE OF CONTROLLER 
sore 4 
2077 SROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
2078 'BY WRITING INTO THE TSSR REGISTER. AFTER T HE INIT, 

2079 [THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
2080 ;DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 
2082 INPUTS: 

2083 : 

2084 : RS ADDRESS OF FIRST REGISTER 

2086 OUTPUTS: 

2087 : 

20 RO CONTENTS OF TSSR, IF ERROR 

2089 CARRY SET IF INIT WAS OKA 

$094 CLEAR IF FATAL ERROR 


;CALLING SEQUENCE: 


iy] 

2 

a =) 
Be Be Se Be Be Se Be Se Se Se he See 


2094 MOV #ADDRESS RS 
2095 JSR PC, SOF INIT 
2096 BCS CONTINUE 
2097 ERRDF REPORT FATAL ERROR 
2098 
2099 - 
2100 
2101 016064 SOF INIT:: 
2102 016064 SAVREG 3 SAVE THE REGISTERS 
2103 016070 012765 000000 000002 MOV #0, se ; a4 is ag HE 
- 2104 016076 004737 016340 JSR PC ,WAITF WAIT FOR SSR 
2105 016102 016500 000002 MOV TSSR(R5) ,RO 3GET THE. TSSR REGISTER 
2106 016106 010004 MOV RO,R4 TSSR CONTENTS 
2107 016110 042704 176277 BIC #*C<HIADDR!OFL>, Re 
2108 016114 052704 002200 BIS #SSR!NBA,R4 3R4 HAS EXPECTED CONTENTS 
2109 016120 020400 CMP R4,RO sONLY yh hy Min SET ? 
2110 016122 001402 BEQ 5$ BRANCH IF OKA 
2111 016124 000241 CLC CLEAR THE CARRY FOR ERROR 
2112 016126 000401 BR 10$ 360 TO EXIT 
2113 016130 000261 5$: SEC 3SET THE CARRY BIT 
2114 016132 000207 10$: RTS PC RETURN TO CALLER 





aa 


7 
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CHKAMB = CHECK TSSR FOR AMBIGUITY SEQ 0084 





3116 .SBTTL CHKAMB = CHECK TSSR FOR AMBIGUITY 
$18 r 
3120 ZTHIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
121 [FOR AMBIGUITY 
2122 é 
2123 : INPUT: 
2124 ; 
2125 : RO CONTENTS OF TSSR 
2126 ; 
2127 OUTPUT: 
2128 $ 
3129 ; RO CONTENTS OF TSSR 
2131 ; CARRY SET = NO AMBIGUITY 
2132 : CLR = AMBIGUOUS CONTENTS 
2133 ; 
2134 a 
2135 
2136 016134 CHKAMB : 
2137 016134 SAVREG ZSAVE THE GENERAL REGISTERS 
2138 016140 010004 MOV RO,R4 [CONTENTS OF TSSR 
2139 016142 032700 100000 BIT #SC,RO tI1S BIT 15 SET ? 
2140 016146 001004 BNE 5 [BRANCH IF YES 
2141 016150 032700 174077 BIT #°C<NBA!OFL!SSR!HIADDR>,RO ZANY OTHER BITS SET ? 
2142 016154 001023 BNE 40$ :MUST BE AN ERR 
2143 016156 000424 BR 45$ ‘RETURN WITH SUCCESS 
2144 016160 032700 000200 5$: BIT #5SR,RO SIS READY BIT SET ? 
2145 016164 001011 BNE 1 [BRANCH IF READY BIT IS SET. 
2146 016166 032700 000040 BIT #B1TS,RO [1S FATAL ERROR BIT SET ? 
2147 016172 001414 BEQ 40$ [ERROR IF NOT 
2148 016174 042704 177761 BIC W°CTERCLS.R4 | :CLEAR ALL BUT TERMINATION COvE 
2149 016200 020427 000016 CMP R4,H16 TALL THREE BITS MUST BE SET 
2150 016204 001007 BNE 40$ TERROR IF NOT SET 
2151 016206 000410 BR 45$ [0K IF ALL ARE SET 
2152 016210 032700 000040 10$: BIT #B1TS.RO TIS FATAL ERROR BIT SET ? 
2153 O16216 001405 BEQ 45$ TERROR IF BIT IS SET WITH SSR 
2154 016216 032700 000006 BIT #BI1T2'!BIT1,RO IS THIS A FUNCTION REJECT 
2155 016222 001002 BNE 45$ ‘BR, IF TSSR IS OK 
2156 016224 000241 40$: CLC ZAMBIGUOUS CONTENTS 
2157 016226 000401 BR 50$ 
2158 016230 000261 45$: SEC zSHOW SUCCESS = NO AMBIGUITY 
2159 016232 000207 50$: RTS PC [RETURN TO CALLER 





tra 
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| ENAINT,DSBINT = ENABLE/DISABLE INTERRUPTS 
| 2162 .SBTTL ENAINT,DSBINT = ENABLE/DISABLE INTERRUPTS 
2164 : DEFAULT DISPLAY INTERRUPT HANDLERS. 
2165 : IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
3166 : OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 
2168 ; 
2169 : BIT DEFINITIONS FOR ‘‘INTMASK'’ AND “‘INTFLAG'' BYTES: 
2171 000200 ; IOKCKIN=B1T7 —«;_ DON'T CHECK FOR BAD INTERRUPTS <= TEST WILL. 
e172 1 1OKSTP=81TO ; EXPECT STOP’ INTERRUPT. 
2174 S INTERRUPT MASK == SAYS EXPECTING INTERRUPTS 
2175 016234 000 INTMASK: .BYT 
2176 s INTERRUPT FLAG == SAYS WE GOT ONE (IF POSITIVE) 
3177 016235 000 INTFLAG: .BYTE 0 
2179 :SAVED INTERRUPT VECTOR: 
2180 016236 000000 INTVEC: .WORD 0 
2181 sSAVE CPU PC 
2182 016240 000000 INTCPC: .WORD 0 
2184 ; SUBROUTINE TO ENABLE INTERRUPTS: 
2185 016242 010046 ENAINT: MOV RO,=(SP) ZSAVE RO 
2186 016244 013700 002200 1VEC,RO [GET POINTER TO VECTORS 
2187 016250 012720 016306 MOV #INTR, (RO) + [SET UP INTERRUPT VECTOR 
2188 016254 012720 000340 MOV #PRIO?, (RO)+ 
2189 016260 012600 MOV (SP)+, ZRESTORE RO 
2190 016262 011646 MOV (SP) ,=(SP) 
2191 016264 012766 000000 000002 MOV #0,2(SP) :SET CPU TO LEVEL 0 
2192 016272 000002 RTI 
2194 ;SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
2195 016274 011646 DSBINT: MOV (SP), =(SP) 
2196 016276 012766 000340 000002 MOV #PRI07,2(SP) 
2197 016 000002 RTI 





SEQ 0085 


2-7 ae 





TSV3 = GLOBAL AREAS 
I = INTERRUPT HANDLERS 


MACRO M1113 25-MAY-82 09:19 PAGE 51 


- INTERRUPT HANDLERS 


INTFLAG 

#I0KSTP, INTMASK 
#IOKSTP, INTFLAG 
MSG BUFFER, ETC. 


nNmu— 


WWW 
SASE 


a REGISTERS, 


RRS 





sDEFINE INTERRUPT ENTRY 

sSET FLAG 7 ae yg RECEIVED 
sCLEAR FLAG TO SAY WE GOT Fon TERRUPT 
s EXPECTING STOP INTERRUPT? 


NO. SET THE ERROR FLAG. 





i 


J 7 
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WAITF = WAIT FOR SUBSYSTEM READY SEQ 0087 





3316 -SBTTL WAITF = WAIT FOR SUBSYSTEM READY 
$siz 3 SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
2219 : INPUTS: 
2220 $ 
2221 : RS ADDRESS OF FIRST DEVICE REGISTER 
3298 OUTPUTS: 
2225 : RO CONTENTS OF LAST TSSR READ 
2226 ; CARRY SET = READY BIT SET 
5344 3 CLR = TIMEOUT WAITING FOR READY 
2229 016340 000401 WAITF:: BR 1$ NOP WHEN SUPER FIXED 
2230 016342 BREAK 3 DO A SUPVSR BREAK FIRST. 
016342 104422 TRAP CSBRK 
2231 016344 012746 003000 1$: MOV #3000,-(SP) 2300 MSEC TIMER 
2232 016350 016500 000002 2$: MOV TSSR(RS) ,RO READ THE TSSR REGISTER 
$635 016354 105700 TSTB RO TEST FOR READY BIT SET 
2235 016356 100420 BMI 3$ : EXIT ON STOP FLAG. 
2236 016360 DELAY 1 3 WAIT 100 USEC 
016360 012727 000001 MOV #1, (PC)+ 
016364 000000 -WORD 0 
016366 013727 002116 MOV LSDLY,(PC)+ 
016372 000000 . WORD 
016374 005367 177772 DEC -6(PC) 
016400 001375 BNE .=4 
016402 005367 177756 DEC =22(PC) 
016406 001367 BNE .720 
2237 016410 5316 DEC (SP) REDUCE DELAY COUNT 
2238 016412 001356 BNE 2s RETRY UNTIL TIMER EXPIRES 
2239 016414 241 CLC : C = 0, CONTROLLER STILL RUNNING... 
2240 016416 000401 BR 4$ z-..OR HUNG-UP AFTER 300 MSEC. 
2241 016420 000261 3$: SEC : C = 1, CONTROLLER IS STOPPED. 
2242 016422 005326 4$: DEC (SP)+ RESTORE STACK WITHOUT CHANGING CARRY BIT 
2243 016424 000207 RTS PC 
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CHKTSSR = CHECK TSSR FOR READY SEQ 0088 
3245 .SBTTL CHKTSSR = CHECK TSSR FOR READY 
2247 3+ 
2248 3 
2249 [THIS ROUTINE WAITS FOR READY IN THE TSSR 
2250 ZAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 
$63 : INPUT: 
2254 : RS ADDRESS OF CSR REGISTERS 
2256 SOUTPUT: 
2257 3 
2258 : RO CONTENTS OF TSSR 
2259 : CARRY SET = OKAY 
2260 ; CLR = NOT READY AMBIGUOUS, OR SC SET 
$5oe = 
226 
2264 016426 CHKTSSR: 
2265 016426 004737 016340 JSR PC ,WAITF WAIT FOR READY 
2266 016432 103014 BCC 208 [BRANCH IF TIME OUT 
2267 016434 004737 016134 JSR PC, CHKAMB :TSSR AMBIGOUS? 
2268 016440 103006 BCC 10$ :BR IF YES 
2269 016442 032700 100000 BIT #SC,RO [SPECIAL CONDITION SET? 
2270 016446 001405 BEQ 1 ‘BR IF 
2271 016450 032700 074000 BIT #<SCE!BIE!'RMR!NXM>,RO ANY ERROR BITS SET? 
2272 016454 001402 BEQ 15$ ‘BR IF N 
2273 016456 000241 10$: CLC ;SET FAILURE 
2274 016460 000401 BR 208 
2275 016462 000261 15$: SEC iSET SUCCESS 


2276 016464 000207 20$: RTS PC RETURN TO CALLER 














306 016544 
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012737 


005103 
012716 
000002 


012700 


005737 
00 

Sh 
005337 
001002 


ee eC es - -—— 
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016520 000004 
000200 000006 


000002 


016530 


000004 


002160 
002174 
002206 





~SBTTL XNXM = CHECK FOR NONEXISTENT MEMORY 
{ROUTINE ag TEST FOR A —— IN THE ro nese. THRU (R2). 


3 ON RETURN, IF “'C'' = 1, (R1) = NEXM 
: "C= 0. ALL ADDRESSES x. 
[CALL: MOV ADR1,R1 
: MOV ADR2.R2 
: JSR PC,NXM 
: RETURN :TEST "'C' AND PROCEED. 
KNXM: MOV #23084 : SET BUSERR VECTOR. 
MOV #PRI04,aw6 
CLR R3 LAG. 
1$: TST (R1) TEST THE ADDRESS(ES). 
TIF ANY TRAP, CONTINUE AT 2$. 
CMP R1,R2 OTHERWISE CONTINUE HERE. 
BEQ 3$ ZBR IF FINISHED (NO NEXM'S). 
ADD #2,R1 ZSET NEXT ADDRESS... 
BR 1$ t..eAND CONTINUE. 
2s: COM R3 zGOT ONE, SET FLAG... 
MOV #3$, (SP) 
RTI y...AND DISMISS INTERRUPT... 
3$: CLRVEC #4 y...AND GIVE BACK THE VECTOR. 
MOV #4,RO 
TRAP C$CVEC 
TST R3 :DID WE, CATCH ONE. 22 
BEQ +6 :NO, "C'' = 0, SKIP NEXT. 
SEC tyes, “c'’ = 1, (R1) = NEXM ADDR. 
RTS PC 


.SBTTL TSTLOOP = CHECK ITERATION COUNT 
"SUBROUTINE TO EXECUTE TEST ITERATIONS. 
; EXIT WITH "'C’* SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
: LOOP COUNTER IS SET BY ‘BEGIN. TEST’’ MACRO. 
: CALL: LOOPTO ARG 


TSTLOOP: : 
TST 


NOITS 3 ITERATIONS INHIBITED? 
BNE 1$ ; M 
TST QvP 
BMI 1$ :LOoes DISALLOWED IN QUICK PASS. 
3 om : BUMP LOOP COUNTER. 
1$: abs 3 sLOOP DISALLOWED, OR DONE. 
2$: SEC :LOOP ENABLED. 


3$: RTS PC 


SEQ 0089 
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TSTLOOP = CHECK ITERATION COUNT SEQ 9090 
a 
333 .SBTTL TSTSETUP = PRINT TEST NAME AND INIT ERROR COUNTS 
:¢ 
2335 ; PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
2336 ; INCREMENT "'TESTK'' TO INDICATE THE NUMBER OF TESTS 
2337 IN THE CURRENT RUN SEQUENCE. 
2338 : CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
sere INPUT: 
Sus ; RO POINTER TO TEST ID ASCIZ STRING 
Sere OUTPUT: 
3346 : RS ADDRESS OF FIRST DEVICE REGISTER 
348 S IMPLICIT OUTPUTS: 
2390 : TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
2352 SSIDE EFFECTS: 
2354 : INTERRUPT LEVEL IS RASIED TO LEVEL OF 
2355 : THE DEVICE UNDER TEST 
2356 ; 
2357 :- 
2358 
2359 016600 TSTSETUP:: 
2360 016600 010046 MOV RO,-(SP) 3 SAVE THE TEST ID MESSAGE 
2361 016602 005037 003144 CLR SIFLAG > CLEAR SOFT INIT’ FLAG 
2362 016606 005037 017046 CLR ERRK : CLEAR LOCAL ERROR C COUNTER. 
2363 016612 00 005770 R : CLEAR ERROR EXTENSION FLAG. 
2364 016616 105037 016234 CLRB —sINTMASK : CLEAR INTERRUPT MASK (CHECK ERROR) 
2365 016622 013700 002172 MOV UNITN,RO : GET THE UNIT 
2366 016626 006300 ASL R : ... AND MAKE IT CORD OFFSET. 
2367 016630 005737 003104 TST NODEV : DID STARTUP FIND. THE DEVICE? 
2368 016634 001430 BEQ 4$ ; BR IF YES 
2369 016636 100010 BPL 3$ BR IF NOT IDLE 
2370 016640 052760 160000 003166 BIS #160000, ERTABL (RO): FLAG ERROR IN THE ERROR TABLE 
2371 016646 ERRDF 1,NXR,NXRERR  ; NO DEVICE HERE == PRINT IT 
016646 104455 TRAP  CSERDF 
016650 000001 .WORD 1 
016652 003736 <WORD  NXR 
016654 005734 “WORD NXRERR 
2372 016656 000407 BR $ 
2373 016660 052760 160001 003166 3$: BIS #160001 sERTABL (RO) ; FLAG ERROR IN THE ERROR TABLE 
2374 016666 ERRDF 2,NOINIT 3 DEVICE NOT IDLE 
016666 104455 TRAP CSERDF 
016670 900002 WORD 
016672 00433 ~WORD NOINIT 
016674 000000 WORD 
2375 016676 012737 177777 003102 28: MOV #-1,DUFLG : DROP THE UNIT 
2376 016704 DODU ~—sCmUNITTN 
016704 013700 002172 MOV UNITN,RO 
016710 104451 TRAP C$DODU 


2377 016712 DOCLN ; ABORT THE PASS 





roroneny) = Perore 
Ww 
“ 
fo) 


Sa82 83 


16746 
2385 016752 
2386 016756 
16756 
16762 
2387 016764 


2 
2390 016774 
2391 
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001000 


016774 
000002 


000006 
002204 


002202 


002176 
123 


4$: 


1$: 


5$: 


045 TNAM: 


TRAP 
BR 


CSDCLN 
5$ 


(SP)+ 
een ae 


"ZSZTZA Test’ 


: GET THE OPERATOR FLAGS. 
; PRINT THE TEST NUMBERS? 
R IF NO 


[GET THE ID MESSAGE 
:DISPLAY THE TEST ID 


: BUMP TEST COUNTER. 
sPRIORITY THAT OF DEVICE 


FIX UP THE STACK 
3 ADDRESS OF TSV REGISTERS ON UNIBUS 


au! 
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TSTEND = PRINT ERRORS RECEIVED SEQ 0092 
3393 .SBTTL TSTEND = PRINT ERRORS RECEIVED 
2395 3 AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
2396 z IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER). 
2398 017010 TSTEND: RFLAGS RO 
017010 104424 TRAP  C$RFLA 
2399 017012 030027 020000 BIT RO,#IER see 
2400 017016 001412 BEQ $ 3 AR IF IER’ NOT SET. 
2401 017020 PRINTF #ESUM,ERRK ‘ ‘INT ERROR COUNT. 
017020 013746 01704 MOV ERRK,=(SP) 
017024 012746 017050 MOV #ESUM, =(SP) 
017030 012746 MOV #2,-(5 
017034 010600 MOV ; 
017036 104417 TRAP _— CS$PNTF 
17040 062706 000006 ADD #6,SP 
2402 017044 000207 1$: RTS 
2404 017046 000000 ERRK: 0 : LOCAL ERROR COUNT. 
2405 017050 045 101 040 ESUM:  .ASCIZ /%A %D%A ERRORS/ 
406 017067 105 122 122 EMAXDU: ASCIZ ZERROR LIMIT REACHED == DROPPING UNIT/ 
2408 
2409 -SBTTL INCERK = INCREMENT LOCAL ERROR COUNT 
34 
sei) ; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 
2413 017134 005237 017046 INCERK: INC ERRK : INCREMENT LOCAL ERROR COUNT 
2414 017140 010046 MOV RO,=(SP) : SAVE RO 
2415 017142 013700 002172 MOV UNI TN, RO : GET UNIT NUMBER, 
2416 017146 006300 ASL R 3... AND MAKE IT A WORD OFFSET. 
2417 017150 062700 003166 ADD #ERTABL RO + RO GETS ADDRESS OF ERROR TABLE ENTRY. 
2418 017154 005210 INC 3 INCREMENT THE DEVICE ERROR COUNT 
2419 017156 032710 007777 BIT #7777, (RO) ; DID WE OVERFLOW THE FIELD? 
2420 017162 001001 BNE 1$ : BR IF NO. 
2421 017164 005310 DEC (RO) > YES == BACK IT UP TO 7777. 
2422 017166 012600 1$: MOV (SP)+,RO + RESTORE RO 
423 017170 000207 RTS PC : RETURN TO CALLER. 
2425 017172 010046 CKEMAX: MOV RO,=-(SP) : 0 
2426 017174 013700 002172 MOV UNI TN, RO : GET UNIT NUMBER 
2427 017200 006300 ASL R ore IT A WORD OFFSET 
2428 017202 016000 003166 MOV ERTABL(RO),RO =: GET ERROR TABLE ENTRY 
2429 017206 042700 170000 BIC #170000,R0 : EXTRACT ERROR COUNT FIELD 
2430 017212 020037 002164 CMP RO, GERRMAX ; IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 
2431 017216 103004 BHIS _«'1$ : BR IF Y 
2432 017220 023737 017046 002162 CMP ERRK,LERRMAX =: IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
2433 017226 103417 BLO $ : BR IF 
2434 017230 1$: RFLAGS RO : GET OPERATOR FLAGS 
017230 104421 TRAP CSRFLA 
2435 017232 032700 000040 BIT #1DU,RO : 1S DROPPING INHIBITED? 
2436 017236 001013 BNE 2$ : BR IF YES. 
2437 017240 012737 177777 003102 MOV #-1,DUFLG + NO == DROP THE UNIT 
2438 017246 ERRDF 4, EMAXDU 
017246 104455 TRAP  C$ERDF 
017250 000004 .WORD 4 
017252 017067 .WORD EMAXDU 
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| INCERK = INCREMENT LOCAL ERROR C SEQ 0093 
17254 060000 . WORD 

2439 017586 DODU —«UNITN 
017256 013700 002172 MOV, UNITN. RO 
017262 104451 TRAP —- C$DOD 

2440 017264 DOCLN 
017266 104444 TRAP —- CSDCLNN 

2441 017266 012600 2s: MOV (SP)+,RO ; RESTORE RO 


sent 017270 000207 RTS PC ; RETURN TO CALLER 


—_-—-— 


| TSV3 = GLOBAL AREAS 
CKDROP = CHECK IF UNIT SHOULD BE DROPPED 


2445 

2446 

2447 

2448 

2449 OI7ere 

2450 017274 

2451 017504 
017304 

2452 017306 

2453 017312 

2454 017314 

2455 017316 

2456 017324 
017324 
017330 

2457 ek 

2458 017334 

2459 017336 

460 

2461 5 

2462 

2463 

2464 

2465 

2466 

2467 

2468 017340 


o— 
38 


ses -Oo OOo 


004737 
000207 
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~SBTTL CKDROP = CHECK IF UNIT SHOULD BE DROPPED 
IF UNIT SHOULD BE DROPPED 


MOV RO,-(SP) 
etce ne 1$,NOTSSR 


RFLAGS R 

TRAP CSRFLA 
BIT #I1DU,RO 
BNE 1$ 

MOV (SP) ,RO 
MOV #-1,DUFLG 
DODU UNITN 
MOV UNITN,RO 
TRAP C$DODU 
DOCLN ABORT THE PASS 
TRAP CSDCLN 
MOV (SP)+,RO 
RTS PC 


-SBTTL CONFIG = DETERMINE CONFIGURATION OF SYSTEM 


? SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM. 


; CHECK 
tKDROP: 
000040 
177777 003102 
002172 
1$: 
tONFIG: 
016064 


JSR PC,SOFINIT 
RTS PC 


SEQ 0094 


8 
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KTON,KTOFF ~ ENABLE/DISABLE MEMORY MANAGEME SEQ 0095 


.SBTTL KTON,KTOFF ENABLE/DISABLE MEMORY MANAGEMENT 
: SUBROUTINE = ENABLE MEM MGT. 


005737 003122 KTON: TST KTFLG : GOT KT? 

001403 BEQ 1$ : NO. 

012737 000001 177572 MOV #1,5R0 : YES. ENABLE KT11. 
000207 1$: RTS PC 


: SUBROUTINE = DISABLE MEM MGT. 


005737 003122 KTOFF: TST KTFLG 3; GOT KT11? 
001405 BEQ 1$ : NO. 

240 NOP 
000240 NOP 
012737 000000 177572 MOV #0,SRO : DISABLE KT. 
000207 1$: RTS PC 
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SETMAP = SETUP PAR6 MAPPING SEQ 0096 
sees -SBTTL SETMAP = SETUP PAR6 MAPPING 
2502 :THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
2503 N 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
S208 18 RETURNED BIASED TO PAR6. 
506 INPUTS: 
2507 3 
2508 3 RO HIGH ORDER ADDRESS BITS 
$208 3 R1 LOW ORDER ADDRESS BITS 
soit sOUTPUTS: 
2513 $ RO OFFSET ae BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
2514 3 CARRY SET IF SUCCESS 
2515 3 CLR IF ERROR 
2516 3° 
2517 017406 SETMAP: 
2518 017406 SAVREG sSAVE R1-R4 UNTIL NEXT _ RETURN 
2519 017412 005737 003122 TST KTFLG og HAVE ABOVE 28K? 
2520 017416 001433 BEQ 10$ :BR 
2521 017420 010102 Vv R1,R2 ‘SAVE LOW ORDER BITS 
2522 000006 REPT 6 
2523 ASR RO sCONVERT WORD ADDRESS TO 32W BLOCKS 
$25¢ "ae R1 sMAKE IT DOUBLE PRECISION 
2526 017452 042701 000177 BIC #177,R1 oe FOR LOWER 4K BOUNDARY 
2527 017456 020137 003122 CMP R1,KTFLG HIGHER THAN EXISTING MEMORY? 
2528 017462 103011 BHIS $ TBR IF YES 
29 0174 010137 172354 MOV R1,@#KIPAR6 sSETUP MAPPING REGISTER PAR6 
2702 BIC #160000,R2 sSETUP DISPLACEMENT IW PAGE 
2702 ADD #140000 ,R2 [ADD IN PAR6 BIAS 
MOV R2,R0 ;RETURN IN RO 
SEC :SET SUCCESS 
GR 15$ ; 
CLC 7SET FAILURE 
RTS PC sRETURN 
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FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN SEQ 0097 
$333 -SBTTL FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN 
3+ 
$26 ; FILL MEMORY WITH A BACKGROUND PATTERN 
@ ° 
254 3; INPUTS 
2544 é 
2545 3 > ; ea iket PATTERN 
2546 3 = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
tot s KTELG = SET TO HIGHEST MEMORY LOCATION IF > 28k. 
2549 3; OUTPUTS: 
2550 ; 
2551 3 NONE 
2552 3° 
2553 ; 
2554 017512 FILLMEM: 
2555 017512 SAVREG 7SAVE R1-R5 UNTIL NEXT RETURN 
2556 017516 004737 017364 JSR PC .KTOFF sDISABLE KT. 
2557 017522 010003 MOV RO,R3 sCOPY TEST PAT TTERN 
2558 017524 013701 003114 MOV FREE, R1 :GET FIRST FREE LOCATION 
2559 017530 013702 003116 MOV FRESIZ, he SIZE y FREE SPACE BELOW 28k. 
2560 017534 010321 10$: MOV R3,(R1) coe” at aie GROUND WORD 
2561 017536 005302 DEC R2 DONE A L MEMORY IN FREE SPACE? 
2562 017540 003375 BGT 10$ F NO 
2563 017542 005737 003122 TST KTFLG ; GOT KT? 
2564 017546 001477 BEQ 55$ 3: NO. GET OUT. 
2565 017550 004737 017346 JSR PC,KTON : YES. ENABLE K 
2566 017554 005000 CLR RO THIGH ORDER SDDRESS S STAR 
2567 017556 013701 003142 MOV PST32W,R1 3GET >28K START ADDRESS UN 32W BLOCKS) 
2568 000006 -REPT 6 
2569 CLC :CLEAR C BIT 
2570 ROL R1 : CONVERT BLOCKS TO WORDS 
$37) eon RO sMAKE IT DOUBLE PRECISION 
2573 017626 004737 017406 JSR PC. SETMAP sSETUP PAR6 MAPPING REGISTER 
2574 017632 010320 30$: MOV R3,(RO)+ STORE TEST PATTERN a Sty ADDRESS 
2575 017634 020027 160000 CMP RO,#160000 [END OF PAR6 MAPPING AR 
2576 017640 103774 BLO 0 BR F 
2577 017642 162700 020000 SUB #20000 ,RO ZBACKUP INTO PAR6 MAPPING BEGIN 
2578 017646 062737 000200 172354 ADD #200, Q@#KIPAR6 ;POINT TO NEXT 54k BLOCK >28k. 
2579 017654 023737 172354 003122 CMP @AKIPAR6,KTFLG SEND OF MEMORY? 
2580 017662 001427 BEQ 50$ 3sBR IF YES 
2581 017664 005737 003134 TST T23A 3 ae 
2582 017670 001407 BEQ 35$ 2NO KEEP 
2583 017672 013704 177572 MOV SRO,R4S 3GET ERO ONTENTS 
2584 017676 042704 177761 BIC #177761,R4 [CLEAR ALL BUT PAGE NUMBER 
2585 017702 022704 000016 CMP #16,R4 SEE IF PAGE 7 
2586 017706 001415 BEQ 50$ EXIT IF THERE 
2587 017710 005737 003136 35$: TST 1238 311 /238? 
2588 017714 001410 BEQ 45$ zNO KEEP 
2589 017716 023727 172354 007600 CMP @4K IPAR6, #7600 ¢ REACHED $8 BITS? 
2590 017724 103001 BHIS 40$ 
2591 017726 000403 BR 45$ ?NO KEEP GOING 
2592 017730 012737 000020 172516 40$: MOV #20,SR3 3SET 22. otne RELOCATION 
2593 017736 000137 017632 45$: JMP 30$ [KEEP GOING ON ETC. 
2594 017742 004737 017364 50$: JSR PC .KTOFF 3 SISABLE KT. 
2595 017746 000207 55$: RTS PC 
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FILLMEM ~ FILL MEMORY WITH BACKGROUND PATTE 


2596 
2597 





SEQ 0098 


————_—_—__——___——_-_-- 
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CMPMEM = COMPARE MEMORY TO BACKGROUND PATTER SEQ 0099 
3599 -SBTTL CMPMEM = COMPARE MEMORY TO BACKGROUND PATTERN 
Ze 
2601 : COMPARE MEMORY WITH A BACKGROUND PATTERN 
$608 : INPUTS 
2604 : 
2605 ; RO = BACKGROUND PATTERN 
2606 : FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
2607 ; KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28k. 
2 : OUTPUTS 
2610 : 
2611 : CARRY = SET IF NO ERROR 
sole ; CARRY = CLR IF ERROR 
61% : IMPLICIT OUTPUTS: 
2616 ; ERRHI = ERROR HIGH ADDRESS 
2617 : ERRLO = ERROR LOW ADDRESS 
2618 : EXPD = EXPECTED DATA 
2619 : RECV = RECEIVED DATA 
2621 017750 CMPMEM: 
2622 017750 SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
2623 017754 010003 MOV RO,R3 7 COPY TEST PATTERN 
2624 017756 004737 017364 JSR PC .KTOFF ZDISABLE K 
2625 017762 013701 003114 MOV FREE,R1 GET PrRST. FREE LOCATION 
2626 017766 013702 003116 MOV FRESIZ,R2 TSIZE OF FREE SPACE BELOW 28K. 
2627 017772 020311 10$: CMP R3, (R1) [FREE SPACE LOCATION EQUAL TO EXPD? 
2628 017774 001411 BEQ 15$ [BR IF YES 
2629 017776 010137 002230 MOV R1,ERRLO : SAVE ADDRESS IN ERROR 
2630 020002 005037 002226 CLR ERRHI NO HIGH ADDRESS 
2631 020006 010337 002222 MOV R3,EXPD SAV vE EXPO. FOR ERROR REPORT 
2632 020012 011137 002224 MOV (Ri) ,RECV :SAVE RECV FOR ERROR REPORT 
2633 020016 000474 BR 50$ 
2634 020020 005721 15$: TST (R1)+ {POINT TO NEXT ADDRESS 
2635 020022 005302 DEC R2 ; DONE ALL MEMORY IN FREE SPACE? 
2636 020024 003362 BGT 10$ :BR IF NO 
2637 020026 005737 003122 TST KTFLG : GOT KT? “ 
2638 020032 001472 BEQ 55$ : NO. GET our. | 
2639 020034 004737 017346 JSR PC,.KTON VES. ENABLE K 
2640 020040 005000 CLR RO [HIGH ORDER ADDRESS S 
2641 020042 013701 003142 MOV PST32W,R1 [GET >28K START ADDRESS UN 32wW BLOCKS) 
2642 000006 .REPT 6 
2643 ROL R1 : CONVERT BLOCKS TO WORDS 
2644 ‘ ROL RO MAKE IT DOUBLE PRECISION 
2646 020076 042701 000177 BIC #177,R1 ZALINE 4K BOUNDARY 
2647 020102 010046 MOV RO,-(SP) 3SAVE HIGH ORDER 
2648 020104 010146 MOV R1,-(SP) 7SAVE LOW ORDER 
2649 020106 004737 017406 JSR PC, SETMAP :SETUP PAR6 MAPPING REGISTER 
2650 020112 010004 MOV RO,R4 [COPY ADDRESS BIASED TO PAR6 
2651 020114 012601 MOV (SP)+,R1 TRESTORE LOW ORDER IN NON PAR FORMAT 
2652 020116 012600 MOV (SP)+,RO RESTORE hieH ORDER IN NON PAR FORMAT 
2653 020120 020314 30$: CMP R3, (R4) ABOVE 28k LOCATION EQUAL EXPD 
2654 020122 001411 BEQ YES 
2655 020124 010037 002226 MOV RO, ERRHI iohve. HIGH ORDER IN ERROR 


‘ 





eee 





ae 
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CMPMEM = COMPARE MEMORY TO BACKGROUND PATTERN . SEQ 0100 
656 020130 010137 002230 MOV Ri ‘rose sSAVE LOW ORDER IN ERROR 
657 020134 010337 002 $¢ MOV R3,EXPD + SAVE EXPD FOR ERROR REPORT 
2658 020140 011437 00222 MOV (RS) ,RECV ; SAVE RECV FOR ERROR REPORT 
2659 020144 000421 BR 50$ 
2660 020146 062701 000002 32$: ADD a, R1 ‘UPDATE NON PAR6 ADDRESS 
2661 020152 005500 ADC ZMAKE IT DOUBLE PRECISION ADD 
$066 020 062704 000002 ADD FDRG S UPDATE PAR FORMAT ADDRESS 
2663 020160 020427 1€9000 CMP R4.#160000 ZEND OF PAR6 MAPPING AREA? 
2664 020164 103755 BLO 30$ F NO 
2665 020166 162704 020000 SUB #20000,R [BACKUP INTO PAR6 MAPPING BEGIN 
2666 020172 062737 000200 172354 ADD #200, SFR IPARG :POINT TO NEXT 4K BLOCK >28K. 
2667 020200 023737 172354 003122 CMP @AKIPARG,KTFLG END OF MEMORY? 
2668 020206 101744 BLOS  30$ [BR IF NO 
2669 020210 004737 017364 50$: JSR PC ,KTOFF STURN OFF MEMORY MAPPING 
2670 020214 000241 CLC :SET FAILURE 
2671 020216 000403 BR 60$ 
2672 020220 004737 017364 55$: JSR PC .KTOFF TURN OFF MEMORY MAPPING 
2673 020224 000261 SEC ZSET SUCCESS 


2674 020226 000207 60S: RTS PC 
2675 


REGSAV 
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2697 020230 


09 
: 020262 


AREAS 
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000012 





SEQ 0101 
~SBTTL REGSAV = SAVE R1-R5 ON STACK 


“ROUTINE TO 
[SAVE R1 THROUGH RS ON THE STACK 
SCALLING SEQUENCE: 

; JSR RS, REGSAV 


THIS IS A COOROUTINE re TRANSFER CONTROL BACK TO 
sTHE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
EReIeTERSS RETURNS CONTROL TO THIS ROUTINE TO RESTORE 


THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
; CALLED VIA A JSR PC INSTRUCTION 


REGSAV: 
MOV R4,-(SP) 
MOV R3, -(SP) 


MOV 10. (SP) RS 
JSR PC, a(SP)+ 
MOV (SP)+,R1 
MOV (SP)+,R2 
MOV (SP)+,R3 
MOV (SP)+,R4 
MOV saree ae 


we 


: T 


GETPAT 


27 

soa 020264 
2733 020264 
2734 ososee 


02 
2735 020310 

020310 
2736 020312 
2737 020316 


2742 
2743 020320 
2744 020322 
2745 


SV3_= GLOBAL AREAS 
~ GET 8 BIT PATTERN FROM OPERATOR 


104443 


00 
000377 


103367 
013700 
000207 


000000 
105 





L 8 


MACRO M1113 25-MAY-82 09:19 PAGE 63 


020320 


116 


124 


-SBTTL GETPAT = GET 8 BIT PATTERN FROM OPERATOR 


ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 


: INPUTS: 
: NONE . 
OUTPUTS: 
: RO OCTAL NUMBER FROM THE OPERATOR 
CALLING SEQUENCE: 
: JSR PC,GETPAT 
GETPAT:: 
SAVREG SAVE THE GENERAL REGISTERS 
1$: GMANID DATASC,PATDAT,0,377,0,377.N 
TRAP C$ 
BR 10000$ 


«WORD PATDAT 

WORD TSCODE 

WORD DATASC 
377 


-WORD TSLOLIM 

eWORD TSHILIM 
10000$: 

+2 tlie 1$ 


MOV PATDAT ,RO 
RTS PC 


sRETRY IF ERROR 

DATA PATTERN FROM OPERATOR 
RETURN TO CALLER 

3+ 

LOCAL DATA AREA 


PATDAT: .WORD 0 
DATASC: -ASCIZ "ENTER DATA PATTERN 


s TEMPORARY STORAGE FOR DATA 


SEQ 0102 
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2771 020404 
2772 02 


020426 
2773 020426 
2774 020430 


020454 
2778 020460 
2779 020462 
2780 020464 
2781 020532 
2782 020537 


010002 


001412 
012346 


177777 
103352 


101411 
012746 
0 
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GETSEL = ISSUE MENU AND GET OPERATOR RESPONSE 


020532 
000002 


000006 


020566 


020464 
000001 


000004 


045 
045 
164 


-SBTTL 


GETSEL = ISSUE MENU AND GET OPERATOR RESPONSE 


SROUTINE TO ISSUE A MENU AND GET 
[THE OPERATOR'S RESPONSE. 


: INPUTS: 
3 RO ADDRESS OF ASCIZ STRING OF MENU 
- R1 MAXIMUM ALLOWABLE OPERATOR RESPONSE 
sOUTPUTS: 
: RO NUMBER OF THE OPERATOR'S SELECTION 
GETSEL:: 
SAVREG sSAVE GENERAL it et eae 
MOV RO,R2 SAVE THE MENU ADDRESS 
1$: MOV R2,R3 s START OF MENU | STRING 
2$: TST (R3) ‘END OF ASCII ? 
BEQ 3$ ‘BRANCH IF ALL “LINES DISPLAYED 
PRINTF athens! == sDISPLAY THE MENU 
MOV (R3)+,=¢ 
MOV OSELASC (SP) 
MOV #2,-(SP) 
MOV SP,RO 
TRAP CSPNTF 
= #6,SP 
3$: GMANID MENASC,MENRES,D,-1,0,-1,NO 
TRAP GMA 
BR 10001$ 
~ WORD ENRES 
WOR TSCODE 
-WORD MENASC 
eWORD -=1 
~ WORD TSLOLIM 
WORD TSHILIM 
10001$: 
+7 tee 1$ sRETRY IF ERROR 
MOV MENRES,RO 3GET THE OPERATOR'S REPLY 
CMP RO,R1 : COMPA RE TO MAXIMUM ALLOWED 
BLOS 5 BRANCH IF OK 
PRINTF #MENERR ‘DISPLAY ERROR MESSAGE 
MOV #MENERR,-(SP) 
MOV #1,-(SP) 
MOV SPR 
TRAP CSPNTF 
ADD #4,SP 
BR 1$° sRETRY 
$: RTS PC RETURN TO CALLER 
MENERR: .ASCIZ SENZA t** Menu Selection Too Large ***' 
SELASC: .ASCIZ ‘ZNZT° 
MENASC: .ASCIZ ‘Enter Menu Selection: ‘ 





SEQ 0103 








‘il plier d ET VS? 
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GETSEL = ISSUE MENU AND GET OPERATOR RESPONSE SEQ 0104 


2783 -EVEN 
2784 020566 000000 MENRES: -WORD 0 











EF 


| 
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| CHKMAN = CHECK MANUAL INTERVENTION LEGALI SEQ 0105 
786 .SBTTL CHKMAN = CHECK MANUAL INTERVENTION LEGALITY 
:* 
2788 : 
789 ;ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
5791 : INPUT: 
279 oO 
279 NONE . 
379%, : 
si? ;OUTPUT: 
5797 : CARRY 0 MANUAL INTERVENTION NOT ALLOWED 
2798 ; 1 MANUAL INTERVENTION IS OK 
2800 SIDE EFFECTS: 
3802 : A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
2803 : NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
2804 : ALLOWED. 
2805 3 
2806 3° 
2807 
2808 020570 CHKMAN: : 
2809 020570 SAVREG SAVE THE REGISTERS 
2810 020574 MANUAL SEE IF MANUAL INTERVENTION OK 
020574 104450 TRAP CSMANI 
2811 020576 BCOMPLETE 1$ BRANCH IF ALLOWED 
103611 BCS i$ 
2812 020600 PRINTF #NOMAN sPRINT THE WARNING MESSAGE 
020600 012746 020624 MOVs #NOMAN, =(SP) 
020604 012746 000001 MOVs #1, =( SP) 
020610 010600 MOV ‘ 
020612 104417 TRAP —CSPNTF 
020614 706 000004 ADD sO, 
2813 020620 000241 CLC CLEAR CARRY FOR ERROR 
2814 020622 000207 1$: RTS PC + RETURN 


osig 020624 045 116 045 NOMAN: .ASCIZ ‘ZNZA *** Manual Intervention not Allowed - Test Aborted ***' 





¢ 9 
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ENVIRN = SETUP FREE DIAGNOSTIC SPACE SEQ 0106 
3819 .SBTTL ENVIRN = SETUP FREE DIAGNOSTIC SPACE 
3821 3 SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 
$853 020720 scan MEMORY RO 
02 106431 CS$MEM 
2824 020722 010037 003114 nov RO, FREE 3 GET 1ST FREE ADDRESS... 
2825 020726 062737 000002 003114 ADD #2. FREE 
826 020734 011037 003116 MOV (RO) ,FRESIZ y~..AND WORD COUNT. 
2827 020740 60737 4 003116 SUB 4,FRESIZ 
2828 020746 013702 002012 MOV LSUNIT,R2 : GET NUMBER OF UNITS 
2829 020752 162737 000007 003116 10$: SUB #7, FRESIZ : TAKE AWAY 7 WORDS PER UNIT 
2830 020760 005302 DEC 2 
2831 020762 00137 BNE 10$ 
3832 020764 013700 003114 MOV FREE,RO :GET FIRST FREE ADDRESS 
2833 020770 063700 003116 ADD FRESIZ,RO :POINT TO LAST FREE ADDRESS 
2834 020774 162700 000002 SUB #2, ‘BACKUP 1 WORD 
2835 021000 010037 003120 MOV RO. FREEH! *STORE LAST FREE ADDRESS 
2836 021004 000240 NOP FRRARARAAARARARRERRERERERERERERERERERREEEEE 
2837 021006 012701 177520 MOV #BDVPCR,RI [GET BDV11 PCR ADDRESS 
2838 021012 010102 MOV R1,R2 [COPY TO R2 
2839 021014 062702 000002 ADD #2,R2 :SET THE RANGE 
2840 021020 004737 016466 JSR PC. XNXM 7SEE IF WE HAVE 
2841 021024 103001 BCC 15$ :0K TO SET FLAGS 
2842 021026 000445 BR 40$ RETURN vITH FLAGS CLEAR 
2843 021030 013701 177520 15$: MOV BDVPCR,R1 3 SAVE PCR CONTENTS 
2844 021034 062701 000001 ADD #1,R D ONE TO IT 
2845 021040 012702 177520 MOV #BDVPCR,R2 Cer BDV11 PCR ADDRESS 
2846 021044 005212 INC (R2) STRY TO WRITE TO IT 
021 013703 177520 MOV BDVPCR,R3 [GET R SUL s 
2848 021052 020103 CMP R1,R3 :DID IT CHANGE? 
2849 021054 001017 BNE ZNO, hust BE 11/238 
2850 021056 005237 003134 INC T23A [SET THE FLAG 
2851 021 042737 170000 002120 BIC #170000, LSHIME : SUPERVISOR COULD BE WRONG 
2852 021070 000240 NOP TBR 40$ FOR RELEASE 
2853 021072 PRINTF 186 sTELL THE SYSTEM TYPE 
021072 012746 005552 MOV #8186,-(SP) 
021076 012746 000001 MOV #1,-(SP 
021102 010600 MOV SP,RO 
021104 104417 TRAP CSPNTF 
021106 062706 000004 ADD #4,SP 
2854 021112 000413 BR 408 RETUR 
2855 021114 005237 003136 20$: ‘INC 1238 iSET HE FLAG 
2856 021120 000240 NOP BR 40$ FOR RELEASE 
2857 021122 PRINTF #8189 [TELL THE SYSTEM TYPE 
021122 012746 005643 MOV #8189, -(SP) 
021126 012746 000001 MOV #1,-(SP 
021132 010600 MOV SP,RO 
021134 104417 TRAP — CS$PNTF 
021136 062706 000004 ADD #4,SP 
1142 000207 40$: RTS PC : RETURN 
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2890 021262 
or 021266 


2893 021270 
894 

2895 021274 

2896 





012716 
000002 
010037 
000207 
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KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS 


003122 


177572 
002120 


172340 
077406 


000200 
002000 
177600 
021270 


000004 


001577 


-SBTTL KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS 


[ROUTINE TO INIT KT=11 


KTINIT: 
CLR KTFLG 
CLR KTENABLE 
CMP LSHIME #1577 
BLOS 6=s«O9S$ 
MOV a#ERRVEC,RO 
MOV #28. a#ERRVEC 
TST SRO 
NOP 
MOV LSHIME ,KTFLG 
BIC #177, KTFLG 
MOV RO, a#ERRVEC 
CLR RO 
MOV #KIPARO,R1 
1$: MOV #77406 ,-40(R1) 
MOV RO, (R1)+ 
ADD #200,R 
CMP RO, #2 
BNE 1$ 
MOV #177600,-(R1) 
BR 9$ 
2$: MOV #6$, (SP) 
RTI 
6$: MOV RO, a#ERRVEC 
9$: RTS PC 


Be Se Se Se Se Se Se Se Se Se Se Se Ge Be Se Se Be Se & 


; INIT >28K MEMORY FLAG 
; as RS >28K FLAG 


GH MEMORY (>28K)? 


NO. 
; SAVE OLD ERR VEC PTR, 
; SET rn? VEC PTR. 


a { 
AP IF NO). 

YES. SET KT FLAG. 
al OLD ERR VEC PTR. 
Hs = DATA. 

= ki REGS PTR. 
Ser ath REG. 
SET KIPAR REG. 
BUMP AR DATA BY ‘‘4K"’. 
AT *'1/0°'? 
NO. 
YES. SET KTPAR7 FOR 1/0. 
SET UP RETURN 
RTI TO NEXT LOCATION 


RESTORE OLD ERR VEC PTR. 


SEQ 0107 


PN plea ail eG dlpenapogep et tue get 87 
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KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS SEQ 0108 
2898 : 
son : SUBROUTINE TO SET EXTENDED FEATURES SWITCH 
$90! Requires that SOFINIT and WRICHR have been done previous to call. 
5308 ; 
2904 : INPUTS: 
2905 5 RS CURRENT UNIT NUMBER 
2906 ; OUTPUTS: 
2907 : The Extended Features Switch is set. 
2908 3 
2909 it 
2910 
aa 021276 INVERT: : 
"2913 021276 005737 002216 TST EXTFEA 3 IS SWITCH SET? 
2914 021302 001020 BNE 1$ : YES,EXIT STAGE RIGHT! (or the next one outa town!) 
2915 021304 012737 021350 MOV #100206, CMDPKT 3; WRT SUB- ph MEM CMD 
2916 021312 012737 021360 021352 MOV #WSMBK , CMDPKT+2 3; MSG BUF ADDR 
2917 021320 012737 021356 MOV #6, CMDPKT+6 : BYTE COUNT 
2918 021326 012737 100010 021360 #100010,wSMBK : INVERT THE SWITCH 
2919 021334 012704 021350 MOV # KT, 3: SET CMDPKT INTO R4 
2920 021340 004737 010752 JSR PC,WRICHR ; dO 1F 
$35} 021344 000207 1$: RTS PC : RETURN 
2923 
<oe8 : COMMAND PACKET. 
$959 021350 . = <.+3>8177774 sMUST BE ON MOD 4 BOUNDRY. 
28 021350 000000 CMDPKT:: 31ST WORD IS TSOS C 


0 COMMAND . 

0 ;2ND WORD IS THE BUFFER LOW ADDRESS. 
2930 021354 000000 0 73RD WORD IS THE BUFFER HIGH aDDRESS. 
4 021356 000000 0 34TH WORD IS THE BYTE/RECORD/FILE COUNT. 


293 

2933 

sore $ WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 
2936 021360 000000 WSMBK:: 0 21ST WORD:: SEL 0 
2937 021362 000000 0 32ND WORD:: SEL 2 
2938 021364 000000 73RD WORD:: SEL 4 





+ ee YF 


tel tin SiS Megas Wie eR 
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| Me = SETUP KT11 MEMORY MANAGEMENT REGISTERS SEQ 0109 
3° 
3348 : SUBROUTINE TO CHECK WETHER OR NOT WE°LL TEST NXM 
2945 : 
2946 ; INPUTS 
2947 SOUTPUTS: 
2948 : The NXMFLG is set if we can test. 
$oe8 : The NXMLO and NXMHI addresses are setup. 
2951 
2958 021366 MEMCK 
2954 021366 SAVREG ZSAVE THE REGISTERS 
2955 021372 005037 003126 CLR NXMFLG [CLEAR THE FLAG 
2956 021376 005037 003130 CLR NXMLU ZCLEAR THE TEST ADDRESS LO 
2957 021402 005037 003132 CLR NXMHI ZCLEAR THE TEST ADDRESS HI 
2958 021406 005737 003136 TST 1238 71S IT A 11/238? 
2959 021412 001407 BEQ 1$ NO 
021414 023727 002120 007777 CMP LSHIME ,#7777 : GREATER THAN 128K 
2961 021422 103406 BLO $ : NO 
2962 021424 004737 021542 JSR PC .NXMTST [SETUP THE ADDRESS 
2963 021430 000427 BR 13$ ZSET THE FLAG AND EXIT 
2964 021432 005737 003134 1$: TST T23A SIS IT A 11/23A? 
2965 021436 001413 BEQ 4$ NO 
2966 021440 023727 002120 005777 28: CMP LSHIME ,#5777 [GREATER THAN 96K 
2967 021446 101023 BHI 14$ :YES, 234/230 WITH 128k MEMOR 
2968 021450 023727 002120 003777 CMP LSHIME ,#3777 [GREATER THAN 64K BUT LESS THAN 92k? 
2969 021456 103403 BLO 4$ ZNO, CHECK 24k 
2970 021460 004737 021542 JSR PC .NXMTST :SETUP THE ADDRESS 
2971 021464 000411 BR 13$ ZSET THE FLAG AND EXIT 
2972 021466 023727 002120 001577 4$: CMP LSHIME ,#1577 [GREATER THAN 24K BUT LESS THAN 64K? 
2973 021474 103410 BLO 14$ =NO, TELL THER AND EXIT WITH FLAG CLEAR 
2974 021476 004737 021542 JSR PC .NXMTST : SETUP The A DRESS 
2975 021502 062737 000077 003132 ADD wr ~NXMHI 3F THE | 11/02 & 11/03 
2976 021510 005237 003126 13$: INC XMFLG SET. THE F 
2977 021514 000411 BR ies EX ae 
2978 021516 0 14$ BR 15$ NOP PRINTOUT 
2979 621520 PRINTF #NOMEM TELL” oHEM & EXIT *#*NO PRINTeeeee 
021520 012746 005456 MOV #NOMEM, =(SP) 
021524 012746 000001 MOV #1,-(SP) 
021530 010600 MOV P’R 
021532 104417 TRAP _— CSPNTF 
021534 062706 000004 ADD #4,SP 
2980 021540 000207 15$: RTS PC RETURN 
2982 
2983 3+ 
398k : SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
2986 S OUTPUTS :NXMLO,NXMHI ZSETUP WITH NXM ADDRESS 
$990 021542 013701 002120 NXMTST: MOV LSHIME ,R1 :GET TOP OF MEMORY 
2991 021546 062701 000200 ADD #200,R1 [MAKE IT 1/0 BLOCK OR OTHER NXM 
2992 021552 042701 000177 BIC #177.R1 


2993 021556 010102 MOV R1,R2 ;RESAVE RESULTS 














TSV3 = GLOBAL AREAS MACRO M1113 25-MAY=82 09:19 PAGE 69-1 
KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS 


S338 060006 sREPT 6 
5 ASL R1 
2996 -ENDR 
2997 021574 010137 003130 MOV R1,NXMLO 
2998 000012 -REPT 10. 
ASR R2 
000 -ENDR 
3001 021624 042702 177700 BIC #177700 ,R2 
3002 0216 010237 003132 MOV R2,NXMHI 
000207 RTS PC 


ENDMOD 


9 


sPUT IN PLACE FOR XFER 
SAVE TEST ADDRESS LOW 
zPUT IN PLACE FOR XFER 
zDON'T WANT ILA! 

sSAVE TEST ADDRESS HIGH 
; RETURN 


SEQ 0110 


| TSV4 = MISCELLANEOU 


KTINIT = SETUP KT1 


$s 
1 


H 9 
SECTIONS MACRO M1113 25=MAY=82 09:19 PAGE 71 
MEMORY MANAGEMENT REGISTERS 


-TITLE TSV4 = MISCELLANEOUS SECTIONS 


BGNMOD TSV4 
TSV4:: 


SEQ 0111 


aa 


| TSV4 = oo pa SECTIONS MACRO M1113 25=-MAY-82 09:19 PAGE 3 


PROTECTION T 
-SBTTL_ PROTECTION TABLE 
GNPROT 


8 021036 Lepact 


021636 
20 O3t63e 177777) «:177777:=«:177777 . WORD 
$4 0216 ENDPROT 


“1, <1, <1, 1 


sNO DEVICE PROTECTION REQUIRED. 


SEQ 0112 


| 


| 


TSV4 = MI 
| INITIALIZ 


os 
25 


Sc 
E 


E 
S 


L 
E 


66 
772 «104447 


LANEOUS SECTIONS 
CTION 


023737 002172 
003102 
002172 
003166 


040000 


000035 


103052 


012700 000040 


103404 


012700 
104447 


103031 


000037 


104433 
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002170 


002012 


003166 


- SBTTL 


INITIALIZE SECTION 


‘THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
AT THE BEGINNING OF EACH PASS. 


TIF START" OR "RESTART", 
iF “CONTINUE, 


S INSERT TEMPORARY JUMP TO ODT 


LSINIT:: 
40$: 


1$: 


2$: 


BGNINIT 

CLR EXTFEA 

CLR NXMFLG 

MOV #EPRT1 ,EPRTSW 
CLR SIFLAG 

CLR KTENABLE 

CLR RAMS 1Z 

READEF #EF.CONTINUE 
MOV #EF . CONTINUE ,RO 


TRAP CSREFG 
stl 1$ 


CMP a -LSUNIT 


TST hy 

BMI XTU 

MOV UNITN, R1 
ASL R1 

TST ERTABL (R1) 
BEQ SETU 

BIT #81714, ERTABL(R1) 
BNE NXTU 

EXIT INIT 

TR CSEXIT 

- WORD 10030-. 
READEF #EF .NEW 
MOV #EF .NEW,RO 
TRAP CSREFG 
BNCOMPLETE NXTU 
BCC T 


NXTU 
READEF #EF.START 
MOV #EF .START,RO 
SREFG 


TRAP C 
BCOMPLETE 2$ 
ay #EF RESTART 


#EF RESTART ,RO 
TRAP CSREFG 
BNCOMPLETE 31$ 
BCC 31$ 


BRESET 
TRAP 


CSRESET 


SET QUICK=PASS FLAG AND BUS-INIT. 
NOTHING IS REQUIRED. 


SET UP PRIMARY renee FOR REPLACEMENT 
CLEAR ‘SOFT INIT" “ 

CLEAR TEST ABOVE 28K LAG 

CLEAR RAM SIZE FOR RAMERR ROUTINE 


i. IN RANGE? 
:BR 


F NO. 
DROPPED UNIT? 
BR IF YES 


: DROPPED? 
2D0 NOTHING IF *'CONTINUE’’. 


3 TAKE NEXT UNIT IF NOT NEW PASS. 


31ST PASS, BUS-INIT... 


2BUS RESET. 





SEQ 0113 


| k 
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INITIALIZE SECTION 


65 pee10 
66 


100 
101 asics 
102 022164 
103 022170 

104 
105 022172 
022172 
106 022174 
107 022176 

108 
109 022176 
76 


005037 


005037 


023727 
101752 
005737 
001747 


003370 
177777 


002174 
022144 


177777 
002210 


002172 
002172 


177777 


002012 


002210 


000100 


002172 


003102 
002210 


002176 


002174 


002172 


002012 
003102 


000001 


11$: 


PASRPT: 


10$: 
SETU: 





CLR TSTCNT 
CLR FATFLG 
CLR T23A 

CLR Ho 3 

MOV #340,=(SP) 
MOV #208, -(SP) 
JMP 

CLR SkIPT 


MOV #-1,QVP 
JSR PC,.ENVIRN 
JSR PC;KTINIT 
MOV ‘hoe’ RO 


CLR 
CMP RO, #ERTABE 
BLO 30$ 
BR 4$ 
CLR ave 


JMP PASRPT 


: MOV #-1 a TN 


CLR DEVCNT 
BREAK 

TRAP C$BRK 

INC UNITN 
CMP UNITN,LSUNIT 
BLO U 

MOV #~1,DUFLG 
BR 11$ 
DOCLN 

TRAP CSDCLN 
NOP 

CMP LSUNIT,#1 
BLOS NEWPAS 
TST DEVCNT 
BEQ NEWPAS 
RFLAGS RO 

TRAP CSRFLA 
BIT #ISR,RO 
BNE NEWPAS 
DORPT 

TRAP CSDRPT 

R NEWPAS 
GPHARD UNITN,RO 
MOV hae RO 
TRAP CSGP HRD 
BNCOMPLETE Maes 
BCC 

CLR DUFL 


MOV R1,CSRADDR 


NUMBER OF TESTS RUN IN PASS 
RROR COUNT 


ETURN TO DEBUGGER 
ssaaenTER” THE DEBUGGER 
[CLEAR THE SUBTEST ‘SKIPPER’ 
At ys Lede! Le Go 
7SET ENVIRONMENT 
S INITIALIZE KT MEMORY MANAGEMENT 


sCLEAR THE ERROR TABLE 


:GO REPORT THE STATUS 


: INIT UNIT NUMBER. 
[CLEAR COUNT OF DEVICES RUNNING 


3e2AND SET NEXT UNIT NUMBER. 


ABORT, NO MORE UNITS. 


HOW MANY UNITS SELECTED? 
TARE ANY STILL RUNNING? 
BR IF NO 


SHOULD WE PRINT STATISTICS 
:BR IF NO 


GET UNIT N P-TABLE POINTER. 


:BR IF UNIT NOT AVAILABLE. 
sCLEAR ‘DROPPED’ FLAG. 


2GET 1ST REGISTER ADDRESS. 
sADDRESS OF REGISTERS OF UNIT UNDER TEST 


- enna ae 





TSV4 = MI 
NITIALIZ 


I 


So 
~w 
~ 
Nm 
Nm 
&- 


NNMNRNANINNN A a ot ee 
SVONKNeNW SOOO 


022242 


ee ee ee ed a ee ed ek ee ed ed ed ed ed ed edd 
WAWG 
Wr 
o 
Nm 
Nm 
™m 
= 
o 


SWWwW WWW 
OoOoe SEAS 
oooooo 

Nm 

~N 

N 

nN 


156 
157 022374 
158 


013701 


0 

101416 
104421 
032700 
001412 


013746 
0 


0 
012737 


012700 
104441 


104411 
045 


SCELLANEOUS SECTIONS 
E SECTION 


002200 
016306 
002202 


002172 
100000 


005770 
002012 


000002 


000006 


003104 
002176 


000002 
016466 


003104 
177777 


000000 


116 
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Vv (RO)+,R1 
;MOV (RO) ,R2 
MOV R2,IPRI 
MOV R1, 
MOV #INTR,(R1)+ 
MOV IPRI,(R1)+ 
1$: 
z TST QvP 
3 BEQ 5$ 


4-H VECTOR ADDRESS. 

GET INTERRUPT Smicnity 

SET INTERRUPT PRIORITY 

3SET INTERRUPT VECTOR POINTER... 


CTOR. 
IT TAND PRIORITY. 


21ST PASS ?? 
2NO, SKIP THE PASS 1 STUFF. 


F187 PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
; THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


mov UNITN,R1 
003166 BIS #81115, ERTABL(R1) 
CLR XTA 
000001 CMP LSUNIT,#1 
BLOS  10$ 
RFLAGS RO 
RAP —s- C$RFLA 
BIT #PNT,RO 
BEQ 10$ 
PRINTF #PUNIT,UNITN 
MOV UNI TN, =(SP) 
MOV #PUNIT, =(SP) 
MOV #2,-(SP) 
MOV ;RO 
TRAP _—- C$PNTF 
ADD 6,SP 
10$: 
CLR NODEV 
MOV CSRADDR,R1 
MOV é 
ADD #TSSR,R2 
JSR PC, XNXM 
BCC 2$ 
MOV R1,NODEV 
003102 MOV 4-1 ,DUFLG 
SFINALLY, SET CPU PRIORITY AND WE 
S$: SETPRI #PRIOO 
MOV #PRI00,RO 
TRAP _— C$SPRI 
ENDINIT 
L10030: 
TRAP = CSINIT 
045 PUNIT: 





eASCIZ = /2NZNZAteee® TEST 


sSAY DEVICE RUNNING 

CLEAR ERROR EXTENSION FLAG. 
ZARE + MULTIPLE UNITS? 
2YES -- GET OPERATOR FLAGS. 
_—,, WE PRINT UNIT #? 


FN 
SPRINT THE UNIT # 


sADDRESS OF FIRST REGISTER 
sSTART OF REGISTERS 
ZADDRESS OF TSSR REGISTER 

:TEST ee an te ee REGISTERS... 


AND BR IF ALL 
TFLAG DEVICE AS HONSEXISTENT 
:DROP THIS UNIT. 


"RE DONE. 


ENABLE INTERRUPTS. 


ING UNIT ZD2%A *e208/ 


SEQ 0115 





HS gy = ae ite SECTIONS 


ADD AND ITS SECTIONS 
160 .SBTTL ADD AND DROP UNITS SECTIONS 
16 3+ 
16 ; THE ADD=UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
164 ; TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME, 
165 ; OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 
167 022442 BGNAU 

02244 LSAU:: 
168 022442 010001 MOV RO, R1 : GET UNIT TO BE ADDED (RO) 
169 022444 006301 ASL ; MAKE IT A WORD INDEX 
170 022446 052761 100000 003166 BIS #100000, ERTABL(R1) : SET TH E"' BIT 
171 022454 042761 040000 003166 BIC #40000, ERTABL(R1) : CLEAR THE “DROPPED’’ BIT 
172 022462 PRINTF #18.R RO 

022462 010046 V =(SP) 

022464 012746 022510 MOV até. =(SP) 

022470 012746 000002 MOV #2,-(SP) 

022474 010600 MOV SP‘RO 

022476 104417 TRAP _—— CSPNTF 

022500 062706 000006 ADD #6,SP 
173 022504 EXIT AU 

022504 000167 WORD 

022506 000026 .WORD 110031-2-. 
174 022510 045 116 045 1$: “ASCIZ /%N%ZA UNIT %D%A ADDED/ 
175 EVEN 
177 022536 ENDAU : UNUSED. 

022536 L10031: 
co 022536 104452 TRAP  CSAU 

t+ 

179 ; THE DROP=UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
180 : TO BE REMOVED FROM THE TEST LIST. 
182 3; SUPVSR DOES THE ‘DROPPING’. THIS IS et TO TELL THE MAN. 
183 3 “DROPPED UNITS ARE RE-SELECTED ON OPERATOR ''STA’’ OR ‘ADD’ 
184 > COMMAND, OTHERWISE REMAIN INACTIVE. THE *DISe PLAY'’ COMMAND 
185 ; WILL PRINT ALL DROPPED UNITS, AND THE P=TABLES OF THOSE 
186 : WHICH ARE STILL ACTIVE. 
187 > UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 
189 022540 BGNDU 

022540 L$DU: : 
190 022540 012737 177777 003102 mov #-1,DUFLG 
191 022546 010001 MOV RO,R1 
192 022550 006301 ASL R1 
193 022552 052761 140000 003166 #140000, ERTABL(R1) ; SAY DROPPED 
194 022560 000240 000240 000240 a 5. 240,240 22222222? 
195 022566 PRINTF ais, RO 

022566 010046 MOV =(SP) 

022570 012746 022614 MOV até. (SP) 

022574 012746 000002 MOV #2,-(SP) 

022600 010600 MOV SP, 

022602 104417 TRAP _— CSPNTF 

22604 062706 000006 


0 

196 022610 
022610 000167 
022612 000030 
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ADD #6,SP 
DU 


JSJMP 
«WORD 1L10032-2-. 


SEQ 0116 
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ADD AND DROP UNITS SECTIONS 


197 022614 

198 

199 022644 
022644 
022644 

201 

202 

203 022646 

204 022646 

205 022652 


022724 


045 


104453 


013705 


104461 


116 


002176 

000550 
016340 
000372 
002116 
177772 


177756 


017272 





045 


1$: 
EVE 
ENDDU 
L10032 
TRAP C$DU 
p++ 
3; AUTO=-DROP CODE SECTION. 
BGNAUTO 
LSAUTO:: 
MOV or ge RS 
MOV »R3 
10$: JSR ec WAITE 
BCS 20$ 
DELAY 250. 
MOV #250. ,(PC)+ 
~ WORD 0 
MOV LSDLY,(PC)+ 
~ WORD 0 
DEC -6(PC) 
BNE -- 
DEC -22(PC) 
BNE 720 
DEC 
BNE 10$ 
JSR PC, CKDROP 
20$: 
ENDAUTO 
L10033: 
TRAP CSAUTO 


ely /%NZA_ UNIT %DZA DROPPED/ 


sPOINT TO DEVICE REGISTER 
WAIT F TIME 5 te se REEL TO REWIND 


TWAIT FOR .25 SECONDS 


BUMP COUNTER DOWN 
KEEP GOING 
TRY AND DROP UNIT 


; UNUSED. 


SEQ 0117 


ee ee 
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CLEAN-UP AND REPORT CODING SECTIONS SEQ 0118 


$i? -SBTTL CLEAN-UP AND REPORT CODING SECTIONS 
17 rs 
a8 CLEANUP CODING SECTION CONTAINS THE Sot bs, THAT IS 


: THE 
; EXECUTED AT THE END OF EACH PASS (OR SUB-PA 
USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL Siate. 


221 << 
222 022726 BGNCLN 
022726 LSCLEAN:: 
223 022726 013705 002176 MOV CSRADDR,RS :POINT T0 DEVICE REGISTER 
224 022732 005737 003102 TST DUFLG :DROPPED’’ FLAG IS SET ON... 
225 022736 100405 BMI 1$ t..eAND GROSS COMTROL LER FAULT... 
$56 z..-DON'T TRY TO XCT CLEANUP CODE. 
228 022740 012765 000000 000002 MOV #0, TSSR(RS) :D0 SOFT INIT 
229 022746 004737 016340 JSR PC WAITF 
230 022752 1$: 
231 022752 2$: ENDCLN 
022752 L10034: 
_ 022752 104412 TRAP C$CLEAN 
so 
233 3; THE REPORT CODING SECTION CONTAINS THE 
Ste : ‘PRINTS’' CALLS THAT GENERATE STATISTICAL REPORTS. 
236 022754 BSNRPT 
2754 LSRPT:: 
237 022754 PRINTS *#DEVSUM 
022754 012746 023216 MOV #DEVSUM, (SP) 
2760 012746 000001 MOV #1,-(SP) 
022764 010600 MOV SP,RO 
022766 104416 TRAP _ CSPNTS 
022770 062706 000004 ADD 44,SP 
022774 010246 MOV R2,-(SP) 
239 022776 010346 MOV R3,-(SP) 
023000 010446 MOV R4,=(SP) 
241 023002 012704 003166 MOV #ERTABL, RG ; GET START OF ERROR TABLE. 
242 023006 005003 CLR : CLEAR UNIT 
243 023010 011402 1$: MOV (R4) ,R2 ; GET ERROR TABLE ENTRY @ TEST IT. 
244 023012 001467 6BEQ 4$ ; ZERO IF UNIT NOT RUN 
245 023014 100066 BPL 4$ 
246 02301 032702 040000 BIT #B1T14,R2 ; WAS UNIT DROPPED? 
247 023022 001015 BNE $ : BR IF Y 
248 023024 042702 170000 BIC #°C7777,R2 ; GET ERROR COUNT FIELD 
249 023030 PRINTS #DEVONL,R3,R2 3; PRINT 
023030 010246 MOV ,>(SP) 
023032 010346 MOV R3,-(SP) 
023034 012746 023253 MOV #DEVONL ,-(SP) 
023040 012746 000003 MOV #3,-(SP) 
023044 010600 MOV SP RO 
023046 104416 TRAP _— CS$PNTS 
023050 062706 000010 ADD #10,SP 
250 023054 000446 BR 4$ 
251 023056 020227 160000 28: CMP R2,#160000 : WAS UNIT NON-EXISTENT? 
252 023062 001012 BNE : BR IF NO 
253 023064 PRINTS #DEVNXR,R3 
023064 010346 MOV -(SP 
023066 012746 023323 MOV #DEVNXR,-(SP) 
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CLEAN-UP 


| 
AND REPORT CODING SECTIONS SEQ 0119 
023072 012746 000002 MOV #2,-(SP) 
023076 010600 MOV SP RO 
0 3100 104416 TRAP —- C$PNTS 
023102 062706 000006 ADD #6,SP 
254 033106 000431 BR 4$ 
255 023110 020227 160001 3$: CMP R2,#160001 3 WAS UNIT NOT READY AT STARTUP? 
256 023114 001012 BNE ; BR IF NO. 
257 023116 PRINTS #DEVNRD,R3 
023116 010346 MOV = 
023120 012746 023405 MOV #DEVNRD,=(SP) 
023124 012746 000002 MOV #2,-(SP) 
023130 010600 MOV SP RO 
023132 104416 TRAP — C$PNTS 
023134 062706 000006 ADD #6,SP 
258 023140 000414 BR 4$ 
259 023142 042702 170000 30$: BIC #°C7777,R2 
260 023146 PRINTS #DEVDRO,R3,R2 
023146 010246 MOV R2,~(SP) 
023150 010346 MOV R3,-(SP) 
023152 012746 023466 MOV #DEVDRO,-(SP) 
023156 012746 000003 MOV #3,-(SP) 
023162 010600 MOV SP RO 
023164 104416 TRAP —- C$PNTS 
023166 062706 000010 ADD #10,SP 
261 023172 062704 000002 4$: ADD #2,R4 
262 023176 005203 INC R 
200 020427 003366 CMP R4 ,#ERTABE 
204 103701 BLO 1$ 
265 023206 012604 MOV (SP) +,R4 
266 023210 012603 MOV (SP)+,R3 
267 023212 012602 MOV (SP)+,R2 
268 023214 ENDRPT ; UNUSED. 
023214 L10035: 
023214 104425 TRAP = CSRPT 
271 023216 5 116 045 DEVSUM: .ASCIZ /ZNZADEVICE STATUS SUMMARY: 2N/ 
272 023253 045 101 040 DEVONL: .ASCIZ /ZA UNIT 203ZA ONLINE, ERRORS = %D%N/ 
273 023323 045 101 040 DEVNXR: .ASCIZ /ZA UNIT 2D3ZA DROPPED, NON-EXISTENT REGISTEREN/ 
274 023405 045 101 040 DEVNRD: .ASCIZ /ZA UNIT 203%A DROPPED, NOT READY AT STARTUPZN/ 
023466 045 101 040 DEVDRO: .ASCIZ /%A UNIT 2D3%A DROPPED, ERRORS = %D2N/ 
277 
278 023536 ENDMOD 
279 


280 
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CLEAN-UP AND REPORT CODING SECTIONS SEQ 0120 


-TITLE TSV7 = HARDWARE TESTS 1-8 






36 BGNMOD TSv7 
36 TSV7:: 

































TEST 


TSV7 = HARDWARE TESTS 1-8 


1: INITIALIZE #4 TEST 


012737 


004737 
012700 
004737 
012737 


004737 
004737 


006356 


016274 
024474 
016600 
000005 


024516 
024606 


see 
000250 
002116 
177772 
177756 
024152 
002212 


024130 
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SEQ 0121 


«SBTTL TEST 1: INITIALIZE #4 TEST 
ITHIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
: CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 
:(1.£. LOOPBACK ENABLED, ORCING WRONG PARITY, URVERT IG SENSE OF 
ZEXTENDED FEATURES eure. ETC.) 
: BGNTST 4 
002170 MOV #EPRT1,EPRTSW :SET UP PRIMARY ERROR MESSAGE 
STEST 1 
JSR PC ,DSBINT ZDISABLE INTERRUPTS 
MOV #TST211D,RO zASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 0 INITIAL TEST SETUP 
002206 na MOV #5. LOOPCNT ‘PERFORM 5 ITERATIONS 
S PC, T21REST :SET COMMAND PACKET 
JSR PC. T2IRT2 [SET UP OTHER COMMAND PACKET 
fF AAAARAAAAERERERREREREEEEEREREERERERRRRAREREERERERREERRERERRARERRERE 
TISSUE CONTROLLER “'SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
: RRAEAAAARARAARAEAARERAEEEEEEEAEAAAARARERARRAARRRERARARAEREREREREERERE TREES 
024152 MOV #65000. ,T21DLY ZSET DELAY ROUTINE 
11$: JSR PC,SOFINIT :D0 INITIALIZE ON CONTROLLER 
BCS 20$ R IF INIT WAS 
DELAY 250 SELAY FOR A REWIND TO FINISH 
MOV #250, (PC) + 
.WORD 0 
MOV LSDOLY, (PC)+ 
.WORD 0 
DEC -6(PC) 
BNE : 
DEC =22(PC) 
BNE - 
DEC T21DLY :BUMP COUNTER 
BNE 11$ 7B. IF MORE Time. TO GO 
INC FATFLG COUNT 
MOV RO,R1 ZCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR, SF IMSG 


MOV 


#T21PACKET,R4 


zFATAL ERROR TSSR WAS NOT OK 
TRAP 


CSERDF 
-WORD 101 
«WORD SFIERR 
-WORD SFIMSG 


;SUBROUTINE NEEDS PACKET ADDRESS 


—__-_—__-_—_— 


——— a ee + 
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|Test 1: INITIALIZE #4 TEST SEQ 0122 

77 

78 FARRAR AAARAAAARAAERAEAEEEEERAAERERAERRAERRREERERERREEEEEREREEEREEEEEE 

79 ; 

80 [WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

82 PITIIIIITITIII IIIT TLL T TLL T TTI LTT TTT T LTT LiTiTiTi titi 

83 

84 023672 013737 002172 024150 MOV UNITN, T21DSW :SET UP DRIVE NUMBER 

85 023700 004737 010752 JSR PC ,WRTCHR TISSUE WRITE CHARACTERISTICS 
023704 103407 BCS 2 :BR, IF COMMAND ISSUED OK 

87 023706 005237 002212 INC FATFLG [BUMP COUN 

91 023712 010001 MoV RO,R1 [SAVE CONTENTS OF TSSR 

92 023714 ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
023714 104456 TRAP CSERHRD 
023716 000146 .WORD 102 
023720 00505 “WORD  wWRTMSG 
023722 012124 -WORD  SFIMSG 

93 023724 23$:  CKLOOP 
023724 406 TRAP CSCLP1 

94 023726 112737 000200 024250 mMOVB #200, T21BS0 ZWRITE MISCELLANEOUS CONT/READ STATUS 

95 023734 112737 000010 024251 i MOVB #10,121B8S1 ZFUNCTION SELECTION BIT 

97 023742 012704 024240 MOV #T21PK2,R4 WRITE SUBSYS MEM PACKET 

98 023746 010465 000000 MOV R4, TSDB(RS) ‘ISSUE COMMAND 

99 023752 004737 016426 JSR PC. CHKTSSR [WAIT FOR SSR 

100 023756 103407 BCS 308 [BR, IF NO ERROR 

101 023760 010001 MOV RO,R1 TERROR, SAVE TSSR 

102 023762 005237 002212 INC FATFLG [BUMP COUNT 

106 023766 ERRHRD ERRNO,T21SSR,PKTSSR = TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
023766 104456 TRAP CSERHRD 
023770 000147 ; .WORD 10 
023772 024256 zm ~ WORD T21SSR 
023774 012136 “WORD PKTSSR 

107 023776 30$:  CKLOOP :SCOPE LOOP 
023776 104406 TRAP _ CSCLP1 

108 024000 012765 000000 000002 MOV #0, TSSR(RS) sISSUE A SOFT INITIALIZE 

109 024006 004737 016340 JSR PC.WAITF ‘WAIT FOR JUST THE SSR BIT TO SET 

110 024012 016501 000002 MOV TSSR(RS) RI SREAD THE TSER BACK 

111 024016 010102 MOV - [WORK REGIS 

112 024020 042702 176377 BIC #°C<HIADDR>,R2 :CLEAR OUT OTHER BITS 

113 024024 052702 002200 BIS #SSR!NBA,R2 [SOME OF THE BITS THAT SHOULD BE SET 

114 024030 032701 000100 BIT #OFL,R1 SIS OFF LINE Blt SET 

115 024034 00101 BNE $ :BR, IF DRIVE IS OFF LINE 

116 024036 020102 35$: CMP R1,R2 SEXPECTED (R2) = RECEIVED (R1) 

117 024040 0014 BED 37$ :BR. IF THEY ARE EQUAL (OK) 

118 024042 005237 002212 INC FATFLG COUNT 

122 024046 ERRHRD ERRNO, 121AM3, EXPREC : ERROR TRYING TO INIT AFTER WRITE MISC. 
024046 104456 TRAP CSERHRD 
024050 150 .WORD 104 
024052 024353 “WORD T21AM3 
024054 015564 <WORD EXPREC 

123 024056 37$:  CKLOOP ZLOOP IF SELECTED 
024056 104406 TRAP — CSCLP1 

124 024060 BR 40$ ZSKIP OVER OFF-LINE STUFF 

125 024062 38$: 

129 024062 ERRDF ERRNO, T210FL,EXPREC ZDRIVE IS OFF LINE 
024062 104455 TRAP — CSERDF 
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| TEST 1: INITIALIZE #4 TEST SEQ 0123 
024064 060151 .WORD 105 
24 024453 “WORD T210FL 
024070 015564 “WORD EXPREC 
130 024072 004737 017272 JSR PC, CKDROP TRY AND DROP UNIT 
131 024676 000241 40$: CLC “DON'T LET CARRY SNEAK IN 
132 024100 106037 024251 RORB 1218s! :TRY NEXT LOWEST’ BIT POSITION 
133 024104 001316 BNE 25$ [LOOP UNTIL ALL EIGHT BITS TESTED 
134 024106 50$:  CKLOOP :SCOPE LOOP 
024106 104406 TRAP — C$CLP1 
135 024110 004737 016546 JSR PC, TSTLOOP :D0 WE NEED TO ITERATE TEST 
136 024114 103002 BCC 63$ [BR, IF NO LOOP REQUIRED 
137 024116 000137 023566 JMP T21L00P SEXECUTE AGAIN 
138 024122 63$: EXIT TST ‘ALL DONE THIS TEST 


oO 
Nm 
a 
—_ 
Nm 
Nm 
~ 
& 
Ww 
Nm 


TRAP CSEXIT 
-WORD 110036-. 


024124 000524 





eS 





roo 


| 
| 


| TSV7 = HARDWARE TESTS 1-8 
TEST 1: INITIALIZE #4 TEST 





— 


MAMAN ES BS EEE 


024130 


024154 


024240 


AN AAO 
SASVAARAN VSS SVS AAS SSVSVULUwVSSESERSES 
oo 


024246 


024250 


024254 


NNN NSO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


024130 
100004 
024140 
000000 
000012 
024154 


024240 
100206 


024250 
000000 
000006 
000 
000 


000000 
000000 
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Z* 
ZLOCAL STORAGE FOR THIS TEST 
: .=<.+108177770 


T21PACKET: 
T21DATA: 


T21DSW: . 


T21DLY: 
T21BFR: 


[WRITE SUBSYSTEM MEMORY COMMAND PACKET 


T21PK2: 


- WORD 


100004 
ee 


10. 
T21BFR 


20. 
0 


oo 


25. 


-=<.+10>8177770 


100206 
sere 


6. 


oooo 


COMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, 
sADDRESS OF CHARACTERISTICS BLOC 


sSTARTING VALUE OF BLOCK SIZE 
: CHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sDRIVE SELE 
sDELAY C 
sMESSAGE BU 


WRITE SUB SYS MEM COMMAND, IE AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sBSELO AREA === "'COMMAND’’ BYTE 


:BSEL1 AREA 
sSEL 2 AREA 
sDATA AREA 


CT WORD 
R 


OUNTE 


FFER 


SEQ 0124 


WITH, ACK 
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| TSV7 = HARDWARE TESTS 1-8 | 
| TEST 1: INITIALIZE #4 TEST SEQ 0125 | 
181 oe, es eee 
182 3+ 
183 [LOCAL TEXT MESSAGES FOR TEST | 
185 : | 
186 024256 127 122 111 T21SSR: .ASCIZ ‘WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted’ 
187 024353 124 12 123 T21AM3: .ASCIZ ‘TSSR Init. Failed After WRITE MISCELLANEOUS CONRTOL/READ STATUS* 
188 024453 104 162 151 T210FL: .ASCIZ ‘Drive is OFFLINE 
189 024474 111 156 151 TST211D: -ASCIZ ‘Initialization #4° 
190 EVEN 
3 ‘ 
193 TROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
19% 3WRITE SUBSYSTEM MEMORY COMMAND 
196 :- 
197 
198 0245 T21REST: 
199 024516 SAVREG ZSAVE THE REGISTERS 
200 024522 012701 024130 MOV #IIPACKET. R1 TSTART OF THE PACKET 
201 024526 012721 100004 MOV 100004, (Ri)+ [WRITE SUBSYSTEM MEM. WITH ACK, 
202 024532 012721 024140 MOV areibata, (R1)+ TADDRESS OF CHARAISTICS DATA BLOCK 
203 024536 005021 CLR (Ride SEXTENDED ADDRESS 
204 024540 012721 000010 MOV R1)+ [SIZE OF DATA BLOCK IN BYTES 
205 024544 012721 024154 MOV orator catye TADDRESS OF MESSAGE BUFFER 
206 024550 005021 CLR (R1)¢ 
207 024552 012721 000024 MOV #20.,(R1)+* ZLENGTH OF MESSAGE BUFFER 
208 024556 005021 CLR (R1)4 
209 024560 005011 CLR (R1) 
210 024562 012702 000020 MOV #20,R2 ZNUMBER OF LOCATIONS TO BE CLEARED 
211 024566 012762 177777 024154 64$: MOV #177777, T21BFR(R2) TALL ONES TO MESSAGE BUFF 
212 024574 005742 TST -(R2) ENEXT UL LOC ATION 
213 024576 020227 000000 CMP R2,40 CHECK R2 FOR 2 
214 024602 001371 BNE 648 :BR, IF NOT AT FEkO YET 
215 024 000207 RTS PC ; 
216 
217 
218 024606 T21RT2: 
219 024 SAVREG ZSAVE THE REGISTERS 
220 024612 012701 024240 MOV #721PK2,R1 SSTART OF THE PACKET 
221 024616 012721 100206 MOV #100206. (R1)+ [WRITE SUBSYSTEM MEM. WITH ACK, IE 
024622 012721 024250 MOV #Te1BF2, (R1)+ TADDRESS OF DATA BLOCK 
223 024626 005021 CLR (R1)¢ TEXTENDED ADDRESS 
224 024630 012721 000006 MOV #6.,(R1)+ [SIZE OF DATA BLOCK IN BYTES 
225 024634 005021 CLR (Ri5+ 
226 024636 012701 024250 MOV #Te1BF2,R1 ZADDRESS OF DATA FOR WRT SUB SYS MEM 
227 024642 005021 CLR (R1)+ 
228 024644 005011 CLR (R1) 
229 024646 207 RTS RETURN 
230 024650 ENDTST 
024650 L10036: 
024650 104401 TRAP  CSETST 
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TEST 1: INITIALIZE #4 TEST SEQ 0126 


232 
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} EST 2: OFF=LINE AND REJECT REWIND 
234 .SBTTL TEST 2: OFF-LINE AND REJECT REW'ND 
:* 
236 
| 937 STHIS TEST VERIFIES BASIC TAPE-MOTION COMMAND DECODING AND BASIC 
38 SOPERATION OF THE REWIND POSITIONING COMMAND. IT DOES NOT 
239 SNECESSARILY DEMONSTRATE THAT THE TRANSPOR FROM AN 
240 ZARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY 
241 3CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST 
24 : TYPICALLY REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST 
243 ;SEQUENCES. THE TEST CONSISTS OF THE FOLLOWING "HREE SUBTESTS 
245 ; 
247 024652 7 BGNTST sas) 
248 024652 012737 006356 002170 MOV #EPRT1,EPRTSW 3SET UP PRIMARY ERROR MESSAGE 
253 024660 004737 016274 JSR PC ,DSBINT :DISABLE INTERR 
254 024664 012700 027137 MOV #TST221D,RO ASCII MESSAGE To IDENTIFY TEST 
255 024670 004737 016600 JSR PC, TSTSETUP O INITIAL TEST SETUP 
236 024674 012737 000005 002206 MOV #5. LOOPCNT < PERT OAM 5 ITERATIONS 
- 
258 
259 ;TEST 2, SUBTEST 1 
261 ; VERIFIES THAT ALL TAPE=MOTION COMMANDS (WITH VALID 
262 MODE CODES) TERMINATE WITH FUNCTION REJECT AN 
263 [OFF=LINE STATUS WHEN THE TAPE TRANSPORT IS OFF=LINE. 
264 ZTHE SUBTEST OPERATES BY PLACING. THE CONTROLLER INTO 
265 ZEXTENDED MODE, SELECT ING UNIT 7, AND ISSUING EACH 
266 [TAPE=MOTION COMMAND, CHECKING, AFTER EACH COMMAND, 
267 :THAT FUNCTION REJECT TERMINATION WAS ACCOMPLISHED. 
269 ‘a 
270 024702 T22L00P: 
271 024702 BGNSUB 7>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
024702 12.1: 
024702 104492 TRAP C$BSUB 
272 024706 004737 027172 JSR PC, T22REST :SET COMMAND PACKET 
373 024710 poe 027264 JSR PC, T22RT2 :SET UP OTHER COMMAND PACKET 
275 aa aaa aia 
276 
a7 3 ISSUE CONTROLLER ‘'SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
279 TITITITITITITILILITITT LETT L LETT TTT TTT TTT TTT TTT 
280 
281 024714 004737 016064 JSR PC, SOF INIT :D0 INITIALIZE on CONTROLLER 
282 024720 103407 BCS 20$ :BR_IF INIT WAS Ok 
283 024722 005237 002212 INC FATFLG 
287 024726 010001 MOV RO,R1 ‘CONTENTS OF TSSR REGISTER 
288 024730 ERRDF ERRNO, SFIERR,SFIMSG SFATAL ERROR TSSR WAS NOT OK 
4730 104455 TRAP  CSERDF 
024732 000311 «WORD 201 
024734 003650 -WORD SFIERR 
024736 012124 -WORD SFIMSG 
289 024740 208: 


290 024740 012704 026220 Bes Bee Fee #T22PACKET,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 


SEQ 0127 








315 058020 
025020 
316 aea0ss 


317 025024 
318 30 


025100 
331 025102 

0251 
332 025104 


340 025110 


000312 
005054 


004737 
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010752 
002212 


026250 
000004 


002212 


002216 


000200 
000010 
026330 
0000 
016426 


002212 


026220 


010752 





10 
MACRO M1113 25-MAY=82 09:19 PAGE 82-1 


026341 
026340 


SEQ 0128 


SEAR AAAAEAARAARAAAAEEEREREERRERAERARERARREREREREREEEHEEEEEEREEREEE 


ZWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


° 
FRAAAAAAARAAAAAEAAEAREEAAAREREAERAEAAARERARRAERAEREERREEREEREREEEEREREEE 


JSR PC,WRTCHR TISSUE WRITE CHARACTERISTICS 
BCS 238 :BR, IF COMMAND ISSUED Ok 
INC FATFLG [BUMP C 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG ZWRITE CHARACTERISTISC FAILED 
TRAP  CSERHRD 
«WORD 202 
“WORD WRTMSG 
-WORD SFIMSG 
23$:  CKLOOP 
TRAP — C$CLP1 
MOV T22BFR+6,R1 :PICK UP XTSO 
BIT #4.R1 [2S UNIT WRITE=LOCKED? 
BEOQ 24$ :NO, PROCEED WITH TESTING 
INC FATFLG T 
ERRDF ERRNO, T22WLK,SFIMSG + TAPE is WRITE LOCKED 
TRAP  CSERDF 
«WORD 203 
<WORD  T22WLK 
.WORD SFIMSG 
DOCLN 
TRAP  CSDCLN 
24$:  CKLOOP 
TRAP _— C$CLP1 
TST EXTFEA ;CHECK FOR EXTENDED FEATURES Sw SWITCH 
BNE 50$ [BR IF SWITCH IS ON 
MOVB #200,122BS1 gWRITE MISCELLANEOUS CONT/READ STATUS 
MOVB #10,722BS0 SFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
MOV #T22PK2 RG SWRITE SUBSYS MEM PACKET 
MOV R4, TSDB(RS) : COMMAND 
JSR PC. CHKTSSR “WAIT FOR SSR 
BCS 30$ ‘BR, IF NO ERROR 
MOV RO.R1 TERROR, SAVE TSSR 
INC FATFLG ‘BUMP COUNT 
ERRHRD ERRNG,T22SSR,PKTSSR ZTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP  CSERHRD 
«WORD 204 
“WORD T22SSR 
.WORD PKTSSR 
30$:  CKLOOP :LOOP IF SELE*TED 
TRAP _— C$CLP1 
MOV #T22PACKET,R4G ;SUBROUTINE NEEDS PACKET ADDRESS 


FRARERAAAAAAAAAEREAARERAAERAEAAAARAEEERAEAERERERERAEREREEAEEAEEREEREREREE 


SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


° 
FERRARA AAAAAAEEAAAERAEEAEAREEEARARERERAEAEREREREEREEAREEEERREEREEEEEE 


JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 


—__—_—_-—_- - ———s  ——_- > nn e 
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TEST 2: OFF=LINE AND REJECT REWIND 
341 025114 163407 BCS 50$ z8R, IF COMMAND ISSUED Ok 
342 025116 005237 002212 INC FATFLG : COUNT 
346 025122 01000 MOV RO,R1 sSAVE CONTENTS OF TSSR 
347 025124 ERRHRD ERRNO,WRTMSG, SF IMSG ZWRITE CHARACTERISTISC FAILED 
025124 104456 TRAP  CSERHRD 
025126 00031 «WORD 205 
| 025130 005054 “WORD WRTMSG 
025132 012124 <WORD SFIMSG 
348 025134 50$:  CKLOOP :SCOPE LOOP 
025134 104406 TRAP  — C$CLP1 
349 025136 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 
350 025142 032701 000100 BIT #OFL,R1 [CHECK FOR THE OFFLINE BIT SET 
351 025146 001006 BNE 60$ 3BR , IF OFFLINE (GOO 
352 025150 005237 002212 INC FATFLG OUNT 
356 025154 ERRDF ERRNO, T220FL,SFIMSG *OFF LINE SHOULD HAVE BEEN SET (BAD) 
025154 104455 TRAP CS$ERDF 
025156 000316 .WORD 206 
160 026555 “WORD T220FL 
025162 012124 -WORD SFIMSG 
357 025164 60$:  CKLOOP ;LOOP IF SELECTED 
5164 104406 TRAP _— C$CLP1 
358 025166 012703 026346 MOV #T22RD,R ZPOINTER FOR COMMANDS 
359 025172 011337 026330 65$: MOV (R3), OR 2 :TAPE MOTION COMMAND IN PLACE 
360 025176 012704 026330 MOV #T22PK2, RG 7R4 = POINTER TO PACKET 
361 025202 010465 000000 MOV 4 TSDB(RS) TISSUE COMMAN 
362 025206 004737 016340 JSR PC; WAITF WALT FOR SSR TO SET 
363 025212 016501 000002 MOV TSSR(R5),R1 TSSR CONTENTS 
364 025216 012702 100306 MOV #SSR'SC!OFL!BIT1!B1T2.R2: Ser Up EXPECTED 
365 025222 020102 CMP R1,R2 TARE THEY EQUAL 
366 025224 001406 BEQ Bg :BR, IF OK ESP. FUNCTION REJECT 
367 025226 005237 002212 INC ‘BUMP COUNT 
371 025232 ERRHRD ERRND 122TH, EXPREC STSSR INCORRECT AFTER TAPE MOTION CMD 
025232 104456 CSERHRD 
5234 000317 TEORD 207 
025236 026630 <WORD T22TM 
025240 015564 -WORD EXPREC 
372 025242 80$:  CKLOOP ZLOOP IF SELECTED 
025242 406 TRAP  C$CLP1 
373 025244 005723 TST (R3)+ sPOINT TO NEXT COMMAND 
374 025246 022713 177777 CMP #177777, (R3) [END OF THE COMMANDS YET 
375 025252 001401 BEQ 90$ 7BR, IF DON 
376 025254 000746 BR 65$ [MORE COMMAND(S) TO GO 
377 025256 90$: 
378 025256 > ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
025256 L10040: 
025256 104403 TRAP CSESUB 
379 025260 023727 002212 000017 CMP FATFLG,#15. 31S ERROR COUNT AT 25 
025266 103402 BLO TBR, IF LESS THAN 25 
381 025270 004737 017272 JSR PC, CKDROP :TRY TO DROP THE UNIT 
382 025274 999$: 
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| TEST 2: OFF-LINE AND REJECT REWIND SEQ 0130 
| 384 :+ 
| 385 3 
| 386 ;TEST 2, SUBTEST 2 
388 VERIFIES THAT A REWIND COMMAND, WITH THE CLEAR VOLUME 
389 + CHECK (CVC) BIT CLEAR, IS REJECTED IF THE VOLUME CHECK 
390 3(VCK) FLAG IS SET. 
391 é 
395 : 
394 Oc 3g , BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
025274 104402 "TRAP ss C$BSUB 
395 025276 004737 027172 JSR PC, T22REST ;SET COMMAND PACKET 
396 025302 004737 027264 JSR PC, T22RT2 ;SET UP OTHER COMMAND PACKET 
398 aaa aa alia aie 
an 3! SSUE CONTROLLER "'SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
402 : iantdeatiahdatbtienenablatetaichtiniacinmtateareniiotiitentittiimnininienanmenaiin 
403 
404 025306 oe eae 016064 JSR PC, SOFINIT 3D0 oe poet te A CONTROLLER 
405 025312 1034 BCS 20$ <BR IF INIT WAS OK 
406 025314 boss39 002212 INC FATFLG :8 COUN he 
410 025320 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
411 025322 ERRDF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
025322 104455 TRAP CSERDF 
025324 000320 -WORD 208 
025326 003650 -WORD SFIERR 
025330 012124 «WORD SFIMSG 
412 025332 20$: 
aiz 025332 012704 026220 MOV #T22PACKET,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 
415 FARRAR RERERAEEEAEEREEEREERAEREEARAEERAREERAERERRREREEKEEEREEEEREERE 
416 ; 
rit sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
419 TTTITITI TELE TELE TTT ETT T LETTE TTT TTT TTT TTT TTT TTT TTT TTT 
420 
421 025336 004737 010752 JSR PC,WRTICHR Z ISSUE WRITE CHARACTERISTICS 
422 025342 103407 BCS 23$ :BR, IF COMMAND ISSUED Ok 
423 025344 005237 002212 INC FATFLG ‘BUMP COUNT 
427 025350 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
428 025352 ERRHRD ERRNO,WRTMSG,SFIMSG “WRITE CHARACTERISTISC ae 
025352 104456 CSERHRD 
025354 000321 reoRD 209 
025356 005054 oo WRTMSG 
025360 012124 -WORD SFIMSG 
429 025362 005737 002216 23$: TST EXTFEA ;CHECK FOR EXTENDED FEATURES SW SWITCH 
rt 025366 001041 BNE 50$ ‘BR IF SWITCH IS ON 
tz 025370 112737 000200 026341 MOVB oa T22BS1 sWRITE MISCELLANEOUS CONT/READ STATUS 
433 025376 112737 000010 026340 MOVB T22BS0 :FUNCT ION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
434 025404 012704 026330 MOV ST DSPRS° R4 WRITE SUBSYS MEM PACKET 
i3¢ 025410 010465 000000 MOV R4, TSDB(RS) S1SS —E COMMAND 


U 
436 025414 004737 016426 JSR PC, CHKTSSR WAIT FOR SSR 
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SEQ 0131 





437 025420 103407 BCs 30$ sBR, IF NO ERROR 

438 025422 010001 MOV RO,R1 sERROR, SAVE TSSR 

439 025424 005237 002212 INC FATFLG ; COUNT 
254 ERRHRD ERRNO,T22SSR,PKTSSR ZTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

25430 104456 TRAP CSERHRD 

025432 000322 «WORD 210 
025434 026360 -WORD T22SSR 
025436 012136 -WORD PKTSSR 

444 025440 30$: CKLOOP ;LOOP IF SELECTED 
025440 104406 TRAP CSCLP1 

rr 025442 012704 026220 MOV #T22PACKET ,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 

4647 J AAAAAAAAAAARAERARAERAEAEEERERAARAAERERERERAERARARRRERERRERERARREEERERE 

448 : 

ret sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

451 PT TTTITTILELILILE LETT TELL ELETTTT TT T TT TTT TTT TTT 

452 

453 025446 737 010752 JSR PC.,WRTICHR + ISSUE WRITE gees yy ey 

454 025452 103407 BCS 50$ s6R. IF COMMAND ISSUED OK 

455 025454 005237 002212 INC FATFLG 

459 025460 010001 MOV RO,R1 = SAVE CONTENTS OF TSSR 

460 025462 ERRHRD ERRNO,WRTMSG, SF IMSG [WRITE CHARACTERISTISC hs 
025462 104456 CSERHRD 
025464 323 TeORD 211 
Bsecee 005054 «WORD WRITMSG 
025470 012124 «WORD SFIMSG 

461 025472 50$: CKLOOP ;SCOPE LOOP 
025472 104406 CSCLP1 
025474 016501 000002 MOV TSSR(RS),R1 7GET TSSR CONTENTS 

463 025500 032701 000100 BIT #OFL,R1 sCHECK FOR THE yin BIT SET 

464 025504 001006 BNE 60$ :BR. IF OFFLINE (GOOD 

465 025506 005237 002212 INC FATFLG COUNT 

469 025512 ERRDF ERRNO, T220FL,SFIMSG OFF LINE SHOULD HAVE BEEN SET (BAD) 
025512 104455 TRAP CSERDF 
025514 000324 «WORD 212 
025516 026555 WORD ise 
025520 012124 «WORD SFIMSG 

470 025522 60$: CKLOOP ;LOOP IF SELECTED 
0255 04406 TRAP CSCLP1 

471 025524 012737 102210 026330 65$: MOV eigcelg. recrKe ZPOSITION COMMAND (REWIND MODE) 

472 025532 012704 026330 MOV #T22PK2,R 7R4 = POINTER TO PACKET 

3 025536 010465 000000 MOV R4, espe ins) 3 C 

474 025542 737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 

475 025546 016501 000002 MOV TSER (R5),R1 3GET TSSR CONTENTS 

476 025552 012702 100306 MOV #SSR'SC!OFL!BIT1!B1T2, R2; SET ¥ EXPECTED 

477 025556 020102 CMP R1,R2 ARE THEY EQUAL 

478 025560 1406 BEQ BR, IF OK ESP. FUNCTION REJECT 
0255 005237 002212 INC T 

483 025566 ERRHRD ERRND T22RUJ .EXPREC TSSR INCORRECT AFTER ~_ MOTION CMD 
0255 104456 TRAP CSERHRD 
025570 000325 -WORD 213 
025572 026724 “WORD T22RWJ 
025574 015564 «WORD EXPREC 

484 025576 80$: CKLOOP ;LOOP IF SELECTED 
025576 104406 TRAP CSCLP1 

485 025600 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


| 
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025600 
5600 104403 
486 025602 023727 002212 000017 


10 103402 
488 aseet ‘ 004737 017272 


MACRO M1113 25-MAY-82 09:19 ouck 83-2 


“a FATFLG,#15. 
JSR PC, CKDROP 


L10041: 


TRAP 
31S ERROR COUNT AT 25 
BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 


CSESuB 


SEQ 0132 
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TEST 2: OFF=LINE AND REJECT REWIND SEQ 0133 

491 3+ 

49 ; 

495 ;TEST 2, SUBTEST 3 

495 VERIFIES THAT A REWIND COMMAND WITH CVC=1 CLEARS VCK 

496 AND RETURNS PROPER STATUS IN THE MESSAGE BUFFER. 

is : 

500 025616 5 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
025616 12.3: 
025616 104402 TRAP  C$BSUB 

501 025620 004737 027172 JSR PC, T22REST :SET COMMAND PACKET 

302 025624 004737 027264 JSR PC. T22RT2 :SET UP OTHER COMMAND PACKET 

504 FARA AAAAAAARARAARARAEEEEEAERERAAEEREREERREREREERREREREEREREREREREE 

505 s 

206 TISSUE CONTROLLER "‘SOFT'’ INITIALIZE = CARRY BIT CLEAR IF ERROR 

508 PT TIIITITILITTTLL LETTE ELTL LETTE TTT TTT TTT TTT TTT TT 

509 

510 025630 004737 016064 JSR PC, SOFINIT D0 INITIALIZE om CONTROLLER 

511 025634 103407 BCS 20$ :BR_IF INIT WAS Ok 

512 025636 005237 002212 INC FATFLG cor 

516 025642 010001 MOV RO,R1 [CONTENTS OF TSSR REGISTER 

517 025644 ERRDF ERRNO, SFIERR,SFIMSG SFATAL ERROR TSSR WAS NOT OK 
025644 104455 TRAP  CSERDF 
025646 000326 «WORD 214 
025650 003650 “WORD  SFIERR 
025652 012124 <WORD  SFIMSG 

518 025654 20S: 

319 025654 012704 026220 MOV #T22PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

at J RRAAAARARAEEAEEEEREREAEERARERAAERERERRERRARERRAERERARARRKEREEEERERE 

353 [WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

525 UT TTTITTTTE LETTE TTT ET ELT T TTT TTT TTT TTT TTT TTT 

526 

527 025660 004737 010752 JSR PC,WRTCHR ZISSUE WRITE CHARACTERISTICS 

528 025664 103407 BCS 238 :BR. IF COMMAND ISSUED Ok 

529 025666 005237 002212 INC FATFLG c 

533 025672 010001 MOV RO,R1 [SAVE CONTENTS OF TSSR 

534 025674 ERRHRD ERRNO,WRTMSG, SFIMSG ‘WRITE CHARACTERISTISC FAILED 
025674 104456 TRAP CSERHRD 
025676 000327 «WORD 215 
025700 005054 -WORD WRTMSG 
025702 012124 SF IMSG 

535 025764 005737 002216 23$: TST EXTFEA :CHECK FOR EXTENDED FEATURES. Sw SWITCH 

336 025710 001041 BNE 50$ [BR IF SWITCH IS ON 

538 025712 112737 000200 026341 MOVB #200, 122BS1 WRITE MISCELLANEOUS CONT/READ STATUS 

539 025720 112737 000010 026340 MOVB 7228S0 UNCTION SELECTION BIT (TURN ON EXTFEA Hw SWITCH) 

540 025726 012704 026330 MOV ar 2SPKS” R4 ‘unt TE SUBSYS MEM PACKET 

541 025732 010465 000000 MOV R4, TSDB(RS) [ISSUE COMMAND 

542 025736 004737 016426 JSR PC; CHKTSSR ‘WAIT FOR SSR 

543 025742 103407 BCS 30$ [BR, IF NO ERROR 





a Cy 
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| TEST 2: OFF=LINE AND REJECT REWIND 


544 025744 
545 025746 
549 025752 

025752 


01000 
005237 
104456 
000 


002212 


026220 


010752 
002212 


000002 
000100 


002212 


577 026046 
578 026054 012704 
579 026060 


142010 
026330 
580 026064 016340 
581 026070 000002 
82 026074 100306 


002212 


20 
591 026122 0 
592 026126 016301 


026242 
000006 


—_ 


SEQ 0134 


: ZERROR, SAVE TSSR 
INC FATFLG : T 
ERRHRD ERRNO, T22SSR,PKTSSR :TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP  CSERHRD 
.WORD 216 
“WORD T22SSR 
“WORD PKTSSR 
30$:  CKLOOP ZLOOP IF SELECTED 
TRAP — C$CLP1 
MOV #T22PACKET, RG ;SUBROUTINE NEEDS PACKET ADDRESS 
J AAAARAAAARARERARARARAEREEEEEAERARERERERREERREREREEREEREERREERREEEE 
[WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
ITIITITITILTILETT LETT TERETE TLL T TTT TTT TTT TTT TTT TTT 
JSR PC WRTCHR TISSUE WRITE CHARACTERISTICS 
BCS 50$ ‘BR, IF COMMAND ISSUED OK 
INC FATFLG ‘BUMP C 
MOV RO,R1 ‘SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
CSERHRD 
reoRD 217 
“WORD  WRTMSG 
“WORD  SFIMSG 
50$:  CKLOOP :SCOPE LOOP 
TRAP — C$CLP1 
MOV TSSR(RS) RI :GET TSSR CONTENTS 
BIT #OFL,R1 [CHECK FOR THE OFFLINE BIT SET 
BNE 60$ :BR. IF OFFLINE (GOO 
INC FATFLG OUNT 
ERRDF ERRNO, T220FL.SFIMSG ZOFF LINE SHOULD HAVE BEEN $ SET (2tor 
reoRD 18 
“WORD  T220FL 
<WORD  SFIMSG 
60$:  CKLOOP :LOOP IF SELECTED este cid 
026330 65$: MOV #142010, T22PK2 3POSITION COMMAND (REWIND MODE) CVC=1 
MOV #T22PK2_RG :R4 = POINTER TO PACKET 
MOV R4, TSDB(RS) : ISSUE COMMAND 
JSR PC, WAITF eWALT FOR SSR TO SET 
MOV TSSR(RS),R1 T TSSR CONTENTS 
MOV #SSR!OFL'SC!BIT1!B1T2, R2; ger UP EXPECTED 
CMP R1,R2 ARE THEY EQUAL 
BEd gg BR, IF Ok ESP. FUNCTION REJECT 
ERRHRD ERRND T22RUJ EXPREC STSSR INCORRECT AFTER TAPE {MOTION CMD 
CSERHRD 
TeORD 219 
“WORD  T22RWJ 
-WORD EXPREC 
80$:  CKLOOP ZLOOP IF SELECTED 
TRAP — CSCLP1 
MOV #T22BFR,R3 ZPOINTER TO MESSAGE BUFFER 
MOV XSTO(R3),R1 ZPICK UP XSTO FROM MESSAGE BUFFER 





Cro 


593 026132 

026134 
595 026140 
596 42 


609 0262 

610 026204 

611 026210 
026210 
026212 


010102 
042702 
020102 
001406 
005237 
104456 
000334 
026777 
015564 


104432 
001116 
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000020 


002212 


002212 
017272 
016546 
024702 





MACRO M1113 25-MAY-82 09:19 PAGE be-2 


000017 


90$: 


999$: 


163$: 


R1,R2 
#BiT4,R2 
R1,R2 


FATFLG 
ERRNO, T22VCK ,EXPREC 


FATFLG,#15. 
999$ 

PC, CKDROP 
PC, TSTLOOP 
163$ 
T22L00P 
TST 


4 UP EXPECTED 
K SHOULD BE CLEAR 
SARE THEY EQUAL 
:BR, IF OK (GOOD) 
:VCK WASN'T CLEAR (BAD) 
TRAP CSERHRD 
«WORD 220 
«WORD T22VCK 
-WORD EXPREC 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10042: 
CSESUB 


TRAP 

sas ERROR COUNT AT 25 
IF LESS THAN 25 
TRY TO DROP THE UNIT 


:D0 WE —_ TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 


EXECUTE AGAIN 
zALL DONE THIS TEST 


SEQ 0135 


——_—_—_—_-- 


| 





637 026330 
638 026330 
639 acesse 


657 026356 
658 
659 
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026220 
4008s 
026230 
000000 
000012 
026242 
000000 


000024 
000000 
000007 


026330 
100206 
026340 
000000 
000006 
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:LOCAL STORAGE FOR THIS TEST 
=<.+10>8177770 


reapacat 


T22DATA: 


T22BFR: 


WRITE SUBSYSTEM MEMORY COMMAND PACKET 


BLKW 


100204 
T22DATA 
0 

10. 
T22BFR 
0 

20. 

0 


7 
25. 


=<.+10>8177770 


T22PK2: 
-WORD 100206 
WORD T22BF2 
-WORD 0 
-WORD 6. 
-EVEN 

T228F 2: 

T22BS0: .BYTE 0 

T22BS1: .BYTE 0 

T22S2: .WORD 0 

T2253: .WORD 0 
-EVEN 

3TAPE MOTION PACKET COMMAND VALUES 

22RD: .WORD 100201 

T22WRT: .WORD 100205 

T22POS: .WORD 100210 

T22FOR: .WORD 100211 
WORD 177777 


+ COMMAND PACKET FOR TEST 


SEQ 0136 


WRITE CHARACTERISTICS COMMAND, WITH IE, ACK 


SADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 

; CHARACTERISTICS DATA BLOCK 
ADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


SELECT DRIVE 7 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, IE AND ACK 
ADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sBSELO AREA 
sBSEL1 AREA 
zSEL 2 AREA 
zDATA AREA 


READ TAPE FORWARD 


SEND OF DATA 


ee 
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TEST 2: OFF=LINE AND REJECT REWIND SEQ 0137 
661 
66 i+ 
66 ZLOCAL TEXT MESSAGES FOR TEST 
664 aaa 
026360 127 122 111 T22ssR: ASC12 WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted’ 
667 026455 124 123 123 T22AM3: .ASCIZ SSR Init. Failed After WRITE MISCELLANEOUS CONRTOL/READ STATUS* 
688 026555 104 162 151 T220FL: .ASCIZ Deine 7 Select Failed To Set “FL In TSSR* 
026630 124 123 123 2TM: .ASCIZ ‘TSSR Incorrect After Ly Motion pompene ie Off-Line Device’ 
670 026724 124 123 123 T22RWJ: .ASCIZ ‘TSSR Not Correct After REWIND With CK S 
671 026777 103 126 103 T22vCK: .ASCIZ ‘CVC Set, Didn'’t Reset VCK In tpg ee 
672 027052 052 052 052 T22WLK: .ASCIZ ‘#*seeTAPE IS WRITE-LOCKED AND WILL RUSE ERRORSSeese’ 
673 027137 jae | 146 TST22ID: -ASCIZ ‘Off-Line And Reject Rewind’ 
674 EVEN 
He r 
677 ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
ors 3WRITE SUBSYSTEM MEMORY COMMAND 
680 :- 
681 
682 027172 T22REST: 
683 027172 SAVREG ZSAVE THE REGISTERS 
684 027176 012701 026220 MOV #T22PACKET,R1 SSTART OF THE PACKET 
685 027202 012721 100204 MOV #100204, (R1)+ ZWRITE SUBSYSTEM MEM. WITH ACK, IE 
7206 012721 026230 MOV #T22DATA, (R1)* ZADDRESS OF CHARAISTICS DATA BLOCK 
687 027212 005021 CLR &R ie TEXTENDED ADDRESS 
688 027214 012721 000012 MOV SSIZE OF DATA BLOCK IN BYTES 
689 027220 012721 026242 MOV aT SSbER tRI)® \  SADDRESS OF MESSAGE BUFFER 
690 027224 005021 CLR (R1)+ 
691 027226 012721 000024 MOV #20.,(R1)+ ;LENGTH OF MESSAGE BUFFER 
692 027232 005021 CLR (R1)+ 
27234 012711 000007 MOV #7,(R1) ZSELECT DRIVE SEVEN 
694 027240 012702 000020 MOV #20,R2 [NUMBER OF LOCATIONS TO BE CLEARED 
695 027244 012762 177777 026242 64$: MOV #177777, T22BFR(R2) TALL ONES TO MESSAGE BUFFER 
696 027252 005742 TST =(R2) [BUMP R2 DOWN 
697 027254 020227 000000 CMP R2,40 31S R2 AT ZERO YET 
698 027260 001371 BNE 648 KEEP GOING UNTIL DONE 
699 027262 000207 RTS PC *RETURN 
701 
702 027264 T22RT2: 
703 027264 SAVREG 3 SAVE THE REGISTERS 
027270 012701 026330 MOV #722PK2,R1 ‘START OF THE PACKET 
705 027274 012721 100206 MOV #100206. (R1)+ WRITE SUBSYSTEM MEM. WITH ACK, IE 
06 027300 012721 026340 MOV aTe2BFe, (R1)¢ SADDRESS OF DATA BLOCK 
707 027304 005021 CLR (R1)+ SEXTENDED ADDRESS 
708 027 012721 000006 MOV #6.,(R1)* SSIZE OF DATA BLOCK IN BYTES 
027312 005021 CLR (Rid+ 
710 027314 012701 026340 MOV #T22BF2,R1 ZPOINT TO DATA SEL AREA 
711 027320 005021 CLR (R1)+ 
712 027322 005011 CLR (R1) 
713 027324 005011 CLR (R1) ;LAST LOC 10 BE CLEARED 
714 027326 000207 RTS S RETURN 
715 027330 ENDTST 
027330 L10037: 
027330 104401 TRAP CSETST 
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TEST 2: OFF-LINE AND REJECT REWIND SEQ 0138 


716 
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| TEST 3: BASIC WRITE DATA SEQ 0139 | 

718 -SBTTL TEST 3: BASIC WRITE DATA 

18 ‘ 

721 THIS re vente ies yen! THE WRITE DATA (NEXT) COMMAND OPERATES 

722 :PROPERLY UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY 

723 sWRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS 

724 SLIMITED TO VERIFYING THAT THE COMMAND TERMINATED —-= WITH 

162 : THE CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS. 

eee THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS 

729 3 

730 3 

731 Sd 

732 027332 BGNTST 
027332 T3:: 

733 027332 012737 006356 002170 MOV #EPRT1,EPRTSW ;SET UP PRIMARY a MESSAGE 

734 027340 005037 003124 CLR K TENABLE Bane OFF KT11 

735 027344 004737 017364 JSR PC .KTOFF TURN OFF KTH 

740 027350 004737 016274 JSR PC ,DSBINT :DISABLE™ INTERRUPTS 

741 027354 012700 033736 MOV #TST231D,RO TASCII MESSAGE TO IDENTIFY TEST 

742 027360 004737 016600 - JSR 4 TSTSETUP :D0 INITIAL TEST SETUP 

743 027364 004737 021366 JSR C:MEMCK :CHECK FOR 

me 027370 012737 000005 002206 MOV oS: LOOPCNT [PERFORM 5 ITERATIONS 

3° 

746 : 

sy s TEST 3, SUBTEST 1 

749 S VERIFIES THAT A WRITE COMMAND (ANY VALID MODE CODE) 

750 SWITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS 

751 He 4} IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL 

752 VALID a CODES ARE CHECKED (WRITE DATA, WRITE 

753 SRETRY) 

754 :- 

755 

756 027376 T23L00P: 

757 027376 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
027376 —tyj. T3.1: 
027376 104402 TRAP c$BSuB 

758 027400 004737 033752 JSR PC, T23REST 3SET COMMAND PACKET 

$4 027404 004737 034044 JSR PC, T23RT2 :SET UP OTHER COMMAND PACKET 

761 fF RAAAAAAAAAAERERAEAAARAEEAEEAERARAEAAAEERERREREAAEERRARERAEERREREREREEEE 

762 3 

re ISSUE CONTROLLER “’SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 

765 SeRARReeReneReeReteReeeeeeeeneeeneeeenenneneaneeeeenereeeeeeeneeene 

767 027410 004737 016064 JSR PC, SOFINIT :D0 INITIALIZE ON CONTROLLER 
27414 103407 BCS 208 :BRIF INIT WAS OK 

769 027416 005237 002212 INC FATFLG T 

773 027422 010001 MOV RO.R1 SCONTENTS OF TSSR REGISTER 

774 027424 ERRDF ERRNO, SFIERR, SF IMSG FATAL ERROR TSSR WAS a | OK 
027424 104455 TRAP CSERDF 
027426 000455 -WORD 301 
027430 003650 eWORD SFIERR 
027432 012124 eWORD SFIMSG 











-———_—_ ——— 


kK 11 
| TSV7 = HARDWARE TESTS 1-8 MACRO M1113 25-MAY-82 09:19 PAGE 871 
TEST 3: BASIC WRITE DATA 7 SEQ 0140 
775 027434 208: 
776 027434 012737 000007 032460 MOV #7,123DSw ZSET DRIVE NUMBER IN PACKET 
07 027442 012704 032440 MOV *TSSPACKET, R4 ‘SUBROUTINE NEEDS PACKET ADDRESS 


FRAAAAAAAAAAAAAAAARAAAAAEAARERAAARAERAARAARERREERREREERERERERERERERREE 


78 [WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
783 ITITIIITILILILILI TTL TTT TTL LITTLE iT e TTT TTT TTT TTT TTT 
vA 
785 027446 004737 010752 JSR PC ,WRTCHR : ISSUE WRITE CHARACTERISTICS 
786 027452 103407 BCS 238 , IF COMMAND ISSUED Ok 
787 027454 005237 002212 INC FATFLG ‘BUA COUNT 
1 027460 010001 MOV RO,R1 ‘SAVE CONTENTS OF TSSR 
792 027462 ERRHRD ERRNO,WRTMSG, SF IMSG WRITE CHARACTERIST ic FAILED 
027462 104456 TRAP  CSERHRD 
027464 000456 TUORD 302 
_ 027466 005054 “WORD WRTMSG 
027470 012124 “WORD SFIMSG 
793 027472 005737 002216 23$: TST EXTFEA 3CHECK FOR EXTENDED FEATURES Sw SWITCH 
79h 027476 001044 BNE 50$ 7BR IF SWITCH IS ON 
796 027500 112737 000200 032573 MOVB #200, 123BS1 ;WRITE MISCELLANEOUS CONT/READ STATUS 
797 027506 112737 000010 032572 MOVB  4#10,123BS0 SFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
798 027514 012704 032550 MOV #T23PK2,R4 [WRITE SUBSYS MEM PACKET 
799 027520 010465 000000 MOV R4, TSDB(RS) TISSUE COMMAND 
800 027524 004737 016426 JSR PC CHKTSSR [WAIT FOR SSR 
801 027530 103407 BCS 30$ :BR, IF NO ERROR 
802 027532 010001 MOV RO,R1 ZERROR, SAVE TSSR 
803 027534 005237 002212 INC FATFLG COUNT 
807 027540 ERRHRD ERRNO,T23SSR,PKTSSR STSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
027540 104456 TRAP — CSERHRD 
027542 000457 «WORD 303 
027544 032614 “WORD  T23SSR 
027546 012136 <WORD PKTSSR 
808 027550 30$:  CKLOOP :LOOP IF SELECTED 
027550 104406 TRAP  CSCLP1 
809 027552 012737 000007 032460 MOV #7,723DSW ZSET DRIVE NUMBER IN PACKET 
810 027560 012704 032440 MOV #T23PACKET RG [SUBROUTINE NEEDS PACKET ADDRESS 
812 FREER AAEEEAEARERAERAEAAEREEEEREREEEREREREEEREREREAEARERRAEREEEEEEREREEE 
813 2 
ap [WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
816 SRRRRReeeeeeeeNeeeReRedeeeeeeenenneeeneneeeeneteneneneeeeeneeeneeee 
817 
818 027564 004737 010752 JSR PC,WRTCHR ZISSUE WRITE CHARACTERISTICS 
819 027570 103407 BCS 50$ 7BR, IF COMMAND ISSUED OK 
820 027572 005237 002212 INC FATFLG [BUMP COUNT 
824 027576 010001 MOV RO,R1 SSAVE CONTENTS OF TSSR 
825 027600 ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
104456 TRAP  CSERHRD 
027602 000460 «WORD 304 
027604 005054 . “WORD WRTMSG 
027606 012124 “WORD SFIMSG 
826 027610 50$:  CKLOOP :SCOPE LOOP 


027610 104406 TRAP CSCLP1 
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TEST 3: BASIC WRITE DATA SEQ 0141 
827 027612 016501 000002 MOV TSSR(RS),R1 sGET TSSR CONTENTS 
828 027616 032701 000100 BIT #OFL,R1 or HECK FOR THE ht ty BIT SET 
829 027622 001006 BNE BR, IF OFFLINE (GOO 
830 og76 4 005237 002212 INC FATFLG C 
834 027630 ERRDF ERRNO, T230FL,SFIMSG COFF LINE SHOULD HAVE BEEN SET (BAD) 
027630 104455 TRAP CSERDF 
027632 000461 WORD 
27634 033256 eWORD T230FL 
027636 012124 -WORD SFIMSG 
835 027640 60S: CKLOOP :LOOP IF SELECTED 
027640 104406 : TRAP C$CLP1 
836 027642 012703 032604 MOV #T23WD,R3 sPOINTER FOR COMMANDS . 
837 027646 011337 032550 45$: MOV (R3), T23PK2 ;TAPE MOTION COMMAND IN PLACE 
838 027652 012704 032550 MOV #T23PK2 RS R46 = POINTER TO PACKET 
839 027656 010465 000000 MOV R4, TSDB(RS) ‘ISSUE COMMAND 
840 027662 004737 016340 JSR PC, say = FOR SSR TO SET . 
841 027666 016501 000002 MOV TSSR( RS), :GET TSSR CONTENTS 
842 027672 012702 100306 MOV pSshiSCtOFL!B1T1!81T2, R2; SET : EXPECTED 
843 027676 020102 CMP R1,R2 ARE THEY EQUAL 
027700 001406 BEQ tBR. IF OK ESP. FUNCTION REJECT 
845 027702 005237 002212 INC BUMP T 
027706 ERRHRD ERRNO T23TM, EXPREC sTSSR INCORRECT AFTER TAPE MOTION CMD 
027706 104456 TRAP CSERHRD 
027710 000462 -WORD 306 
027712 033012 -WORD T23TM 
027714 015564 «WORD EXPREC 
850 027716 80$: CKLOOP ;LOOP IF SELECTED 
7716 104406 TRAP CSCLP1 
851 027720 005723 TST (R3)+ sPOINT TO NEXT COMMAND 
852 027722 022713 177777 CMP #177777, (R3) 7 END OF THE COMMANDS YET 
853 027726 001401 BEQ 90$ IF D 
854 027730 000746 BR 65$ :MORE COMMAND(S) TO GO 
855 027732 90$: 
856 027732 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
027732 L10044: 
104403 TRAP CSESUB 
857 027734 023727 002212 000017 CMP FATFLG,#15. 31S ERROR COUNT AT 38° 
858 027742 103402 BLO :BR, IF LESS THAN 2 
859 027744 737 017272 JSR PC, CKDROP TRY TO DROP THE 4 
860 027750 999$: 
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TEST 3: BASIC WRITE DATA SEQ 0142 

86 3+ 

86 3 

ace sTEST 3, SUBTEST 2 

866 S VERIFIES THAT WRITE DATA COMMANDS WITH CVC=1 AND THE 

867 sSWAP BYTES (SWB) BIT CLEAR yg it oot Oe tobe THE 

868 ‘BYTE COUNT (RECORD SIZE) VARIES FROM 20 THROUGH 64K 

869 SIN VARYING INCREMENTS (DEPENDING UPON WH R NOT 

870 3 THE DIAGNOSTIC IS RUNNING IN THE LONG VERIFICATION 

871 sMODE). THE TAPE IS NOT REWOUND BETWEEN SUCCESSIVE 

872 sRECORDS BUT IS REWOUND AFTER THE F I 

873 ; N. AN INCREMENTING COUNT PATTERN IS SUPPLIED 

874 3 IN THE DATA BUFFER. AFTER EACH BLOCK IS WRITTEN, | 

875 ;TSSR AND TSBA REGISTERS, THE MESSAGE BUFFER, AND THE 

876 sRAM CONTENTS ARE CHECKED. (THE RAM CONTENTS ARE CHECKED 

ore ;USING THE WRITE SUBSYSTEM MEMORY COMMAND. 

879 ; 

i? 7 

882 027750 BGNSUB {>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
027750 73.2: 
027750 104402 TRAP C$B8SUB 

883 027752 013701 003116 MOV FRESIZ,R1 3GET SIZE OF a a tae MEMORY 

884 027756 000241 CLC sCLEAR THE CARRY BIT 

885 027760 006101 ROL R1 sMAKE INTO BYTES 

886 027762 010137 032570 MOV R1,T23RSZ s STORE IN TEST FOR USE LATER 

887 027766 004737 033752 JSR PC, *TO3REST T COMMAND PACKET 

888 027772 004737 034106 JSR PC, T23RT3 tRESTORE PACKET 

p44 027776 004737 034044 JSR PC, *T23RT2 3SET UP OTHER COMMAND PACKET 

89) FERRARA ERARARARAARAEEEEAAARARARARAEARERERARRAEAAARARERREREREREEEE 

892 : 

er ISSUE CONTROLLER ‘‘SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 

895 TTI TITITITE LITE E TELE TELE TELE T TTL T TTT TTT TTT TTT TTT TTT TTT TTT 

96 

897 030002 004737 016064 JSR PC,SOFINIT aa INITIALIZE ON CONTROLLER 

898 030006 103407 BCS 20$ R IF INIT WAS OK 

899 030010 005237 002212 INC FATFLG i COUNT 

903 030014 010001 MOV RO,R1 sCONTENTS OF TSSR oe 

904 030016 ERRDF ERRNO,SFIERR,SFIMSG TFATAL ERROR TSSR WAS NOT OK 
030016 104455 TRAP CSERDF 
030020 000463 eWORD 307 
030022 003650 -WORD SFIERR 
030024 012124 -WORD SFIMSG 

905 030026 20$: 

906 030026 013737 002172 032460 MOV UNITN, T23DSW to UP SELECTED UNIT NUMBER 

«44 030034 012704 032440 MOV #T23PACKET, RG UBROUTINE NEEDS PACKET ADDRESS 

SAAAAEAAAEAAAARAETAAAEAAEAERAAERAAARERAAARARAEAAARAREAREEEEEREEREREEEEEE 

910 3 

44h sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

913 SeeROReeeeeeeeeeeeeeeeeerereeeeeeneneeeenereeennereeeneereneneeeees 


914 
915 030040 004737 010752 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
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961 030220 
962 030224 
963 030226 
964 030230 


030242 


103407 
005237 
010001 


104456 


012124 
104406 


004737 
012703 
013737 


012737 


005237 
104456 


015564 


002212 


011104 
000024 
003114 


140005 


032560 
017512 


0 

000200 
034132 
000000 


002216 
000002 


002212 
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032562 


032560 
032602 
032602 


23$: 


ERRHRD 


CKLOOP 


23$ 

FATFLG 

RO,R1 

ERRNO, WRTMSG, SF IMSG 


:BR. 7 — ISSUED OK 


7 SAVE CONTENTS OF TSSR 
WRITE CHARACTERISTISC bose 


CSERHRD 
WORD 308 
«WORD WRITMSG 
«WORD SFIMSG 
LOOP IF SELECTED 
TRAP CSCLP1 


FERRARA AEEREEAERERRAERAEAEEEREERAERREREERERAEERRERREREREEEREERREEEEE 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


e 
FEAARAAARAARARERARERREAEEEREREREREREREREREREERERREREERERERRAREREKEREEE 


65$: 


JSR 
MOV 
MOV 


PC REWIND 
#20.,R 
FREE ,T23WB 


CALL THE TAPE REWIND 
STARTING RECORD SIZE 
STARTING WRITE BUFFER ADDRESS 


FERRARA EREREEAAEAEREREEERERERERERARARERAEREREREREREREREREEREREREKEEEE 


[WRITE DATA,CVC=1,ACK COMMAND 


° 
SRRAERERARERRERERRRARRERERREKEEKRRAREERERRERERERERERREREEREKREREEREE 


80$: 


85$: 


ERRHRD 


#140005, T23PK3 
#140005. T23WRT 
#4000.1 TI3WRT 
ay #T23PK3, 4 
PC.FILLMEM 
R3_.123S2 
R4.TSDB(RS) 


TSSR(R5) RI 
#SSR,R2 
R1_.R2 

o$ 
PC, T23CHK 


TSBA(RS) ,R1 
#T23BFR,R2 
#16,R2 


FATFLG 
ERRNO, T23BA,EXPREC 


sWRITE oan kathe 1,ACK COMMAND 

: SETUP i. RETRY COMMAND 

MAKE IT A RETRY 

SET UP Re WITH PACKET ADDRESS 
sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 
ISSUE COMMAND 


sWAIT_FOR SSR TO SET 
GET TSSR CONTENTS 
sSET UP EXPECTED 
ZARE ji Al EQUAL 


CHECK SPECIAL CONDITION 
LOOP IF SELECTED cone 


2GET TSBA CONTENTS 
PECTED 


SET UP EX 
SET TO END OF MESSAGE BUFFER 
ioe ie tt exteneee FEATURES Sw SET 


: s 
UMP R2 er a DATA 
PARE” THEY 
R, IF TSBA is CORRECT 


‘BUMP COUN 
2TSBA WAS NOT CORRECT wf = A it DATA 
em 


CSCLP1 


TOR 
-WORD 


T23BA 
«WORD EXPREC 


SEQ 0143 
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TEST 3: BASIC WRITE DATA SEQ 0144 
969 030244 90$:  CKLOOP :LOOP IF SELECTED 
930264 104406 TRAP — CSCLP1 
970 030246 020327 007376 CMP R3,47376 ZONLY CHECK RAM UNTIL ITS FULL 
971 030252 002114 BGE 115$ SIT WRAPS AROUND E TC. 
972 030254 004737 034044 JSR be T23RT [MAKE SURE PACKET AND DATA ARE CLEAN 
973 030260 012737 000400 032574 MOV 256. ,123S2 SSTARTING RAM ADDRES 
030266 112737 000000 032572 MOVB #0,7238S0 STOP INTERNAL TevOs DIAGNOSTICS 
975 030274 112737 032573 MOVB #0.123851 :SIZE 0 READ 
976 030302 012704 032550 MOV #TS3PK2,RG SET ase "ait PACKET ADDRESS 
030306 010465 000000 MOV R4, TSDB(RS) TISSUE WRITE SUB SYS MEM COMMAND 
978 030312 004737 016426 JSR PC’ CHKTSSR ZCHECK TSSR AND WAIT FOR SSR TO SET 
979 030316 103407 BCS 92$ [BR, IF NO ERRORS IN TSSR 
030320 010001 MOV RO,R1 i SAVE TSSR 
981 030322 005237 002212 INC FATFLG COUNT 
985 030326 ERRHRD ERRNO, T23WSS,PKTSSR STSSR BAD AFTER WRITE sus SYS MEM 
030326 104456 TRAP  CSERHRD 
030330 000466 .WORD 310 
030332 033647 “WORD T23wSS 
030334 012136 “WORD PKTSSR 
986 030336 92$:  CKLOOP :LOOP IF SELECTED 
030336 104406 TRAP CSCLP1 . 
987 030340 004737 034044 JSR T23RT2 ZMAKE SURE PACKET AND DATA ARE CLEAN . 
988 030344 012737 000440 032574 MOV wee, 123S2 ZSTARTING RAM ADD 
989 030352 112737 000001 032572 MOVB 723880 [READ RAM COMMAND FOR WRITE SUB SYS M. 
990 030 112737 000002 032573 MOVB A 133ps1 SSIZE OF RAM READ 
030 012704 032550 MOV #T23PK2,RG ZSET RG WITH PACKET ADDRESS 
992 030372 010465 000000 95$: MOV RG, TSDB(RS) TISSUE WRITE SUB SYS MEM COMMAND 
993 030376 004737 016426 JSR PC,CHKTSSR sCHECK TSSR AND WAIT FOR SSR TO SET 
994 030402 103407 BCS 100$ :BR, IF NO ERRORS IN TSSR 
995 030404 010001 MOV RO,R1 SSAVE TSSR 
99% 030406 005237 002212 INC FATFLG [BUMP COUNT 
1000 030412 ERRHRD ERRNO, T23WSS,PKTSSR :TSSR BAD AFTER WRITE ans = MEM 
030412 104456 CSERHRD 
030414 000467 TCono 311 
030416 033647 “WORD T23wSS 
030420 012136 -WORD PKTSSR 
1001 030422 100$:  CKLOOP :LOOP IF SELECTED 
30422 104406 . TRAP — CSCLP1 
1002 030424 005001 e CLR Rt ZCLEAR REGISTER 
1003 030426 005002 CLR CLEAR R REGISTER 
1004 030430 013701 032502 MOV T23aFR+20, R1 [PICK UP BYTE READ FROM RAM 
1005 030434 0 MOV R3,R2 [SET UP EXPECTE 
1006 030436 020102 CMP R1_R2 71S RAM DATA CORRECT 
1007 030440 001406 BEQ 1108 7BR, IF OK (EQUAL) 
1008 030442 005237 002212 INC : OUNT 
1012 030446 ERRHRD ERRNO. T23RNC EXPREC [RNC=RAM NOT CORRECT 
030446 104456 TRAP  CSERHRD 
030450 000470 «WORD 31 
030452 033135 “WORD T23RNC 
030454 015564 <WORD EXPREC 
1013 030456 110$:  CKLOOP :LOOP IF SELECTED 
030456 104406 TRAP — CSCLP1 
1014 030460 005237 032574 INC 12382 ;BUMP RAM ADDRESS TO BE CHECKED 
1015 030464 005237 032574 INC 12352 [BUMP RAM ADDRESS TO BE CHECKED 
1016 030470 01030 MOV R3_R1 [GET SIZE OF RECORD 
1017 030472 062701 000400 ADD #256. .R1 : FIGURE our END RECORD ADDRESS 
1018 030476 023701 032574 CMP 12352.R1 [AT END OF RAM CHECK Y 








ee 


_ TSV7 = HARDWARE TESTS 1-8 MACRO M1113 25-MAY=82 09:19 PAGE C12. 3 
| TEST 3: BASIC WRITE DATA SEQ 0145 
| 1019 030502 061333 BNE 95$ z8R, IF MORE TO CHECK 
/ 1020 030504 062703 001750 115$: ADD #1000. ,R3 [NEXT RECORD SIZE /BATA PATTERN 
| 1021 030510 020337 032570 CMP R3,T23RS2 71S R3 OVER MAX RECORD SIZE 
10¢@ 030514 002005 BGE Ne $ zIF RECORD SIZE IS T 00 81 G QuIT 
1023 030516 020327 177776 CMP R3,#65534. [END OF SUBTEST MAX RECORD SIZE 
1034 030522 001402 BEQ 120s 78R, IF COMPLETED 
1025 030524 000137 030076 JMP 65$ 7D0 MORE RECORDS 
1026 0305 1208: 
1027 030530 004737 034106 JSR PC, T23RT3 : RESTORE PACKET 
1028 030534 004737 034044 JSR PC. T23RT2 ZCLEAN UP PACKET 
1029 030540 012737 102010 032550 MOV #i62010.12 T23PK2 ZREWIND (POSITION) COMMAND 
1030 030546 012704 032550 MOV 2.R4 [LOAD R4 WITH PACKET ADDRESS 
1031 030552 010465 000000 MOV R4, TSDB(RS) i ISSUE REWIND COMMAND 
1032 030556 004737 016426 JSR PC, CHKTSSR WAIT FOR SSR TO SET 
1033 030562 103407 BCS 130$ ‘BR, IF TSSR IS Ok (GOOD) 
1034 030564 010001 MOV RO,R1 ; SAVE TSSR CONTENTS 
1035 030566 005237 002212 INC FATFLG T 
1039 030572 ERRHRD ERRNO, T23RWN,PKTSSR :TSSR IS INCORRECT AFTER REWIND 
030572 104456 TRAP  CSERHRD 
030574 000471 «WORD 313 
030576 033066 -WORD T23RWN 
030600 012136 “WORD PKTSSR 
1040 030602 130$: 
1041 030602 ENDSUB {>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
030602 L10045: 
030602 104403 TRAP C$ESUB 
1042 030604 023727 002212 000017 CMP FATFLG,#15. zIS ERROR COUNT AT 25 
1043 030612 103402 BLO 999$ 7BR, IF LESS THAN 25 
1044 030614 004737 017272 JSR PC, CKDROP :TRY TO DROP THE UNIT 








| D 12 
TSV7 =_HARDWARE TESTS 1-8 MACRO M1113 25=-MAY-82 09:19 PAGE 89 


TEST 3: BASIC WRITE DATA SEQ 0146 

10467 3* 

1048 $ 

eH _ 3, SUBTEST 3 

1051 i VERIFIES ots WRITE DATA COMMANDS WITH CVC=1 AND THE 

1052 + SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 

1053 + SEQUENCE Is IDENTICAL TO THAT USED IN SUBTEST 2. 

it : THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 

1056 : 

1988 

1059 030620 BGNSUB j>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
030620 73.3: 
030620 104402 TRAP c$BSuUB 

1060 030622 004737 033752 JSR PC, T23REST sSET COMMAND PACKET 

ees 030626 004737 034044 JSR PC, T23RT2 SET UP OTHER COMMAND PACKET 

1063 J RARAAAAAAAAAAAAARAERAEEEEEREEREREARARAERARERAEERREREERARERREREREREREEEE 

1064 3 

sees ; ISSUE CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 

1067 OT TITITITILLELILE LETT TEE ETT TTT TTT TTT TTT TTT TTT 

1068 

1069 030632 004737 016064 JSR PC, SOFINIT 300 be ad ea CONTROLLER 

1070 030636 103407 BCS 20$ <BR IF INIT WAS OK 

1071 030640 005237 002212 INC FATFLG ;BUMP cut 

1075 030644. 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

1076 030646 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
030646 104455 TRAP CSERDF 
030650 000472 eWORD 314 
030652 003650 -WORD SFIERR 
030654 012124 -WORD SFIMSG 

1077 030656 - 20$: 

1078 030656 013737 002172 032460 MOV UNITN, T230SW :SET UP UNIT NUMBER 

La 030664 012704 032440 MOV #T23PACKET, R4 ; SUBROUTINE NEEDS PACKET ADDRESS 

1081 FERAAAAAAAAAAEAERAREREREEAEEEARERARERERRAREERREERARERRERRERAUERERERERE 

1082 8 

iGat sWRITE CHARACTERISTICS COMMAND (CALL TO WRTICHR) 

1085 SReRAReeeERRRReReReeeeeeeeeeeAneneeneneeeaneeeeneneeeeenesenetees 

1086 

1087 030670 004737 010752 JSR PC,WRICHR 2 ISSUE WRITE ares Y Hah Lh, 

1088 030674 103407 BCS 238 7BR, IF COMMAND ISSUED 

1089 030676 005237 002212 INC FATFLG ;BUMP COUNT 

1093 030702 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

1094 030704 ERRHRD ERRNO, WRTMSG,SFIMSG SWRITE CHARACTERISTISC rene 
030704 104456 CSERHRD 
030706 000473 Teono 315 
030716 005054 -WORD WRTMSG 
030712 012124 -WORD SFIMSG 

1095 030714 23$: 

1096 030714 012703 000024 MOV #20. .R3 sSTARTING RECORD SIZE 

H+ 444 030720 013737 003114 032562 65$: MOV FREE, T23WB sSTARTING WRITE BUFFER ADDRESS 

1099 FERRARA AEEAAEAAEAAEAAERERAAAAAEERAEARERAEEARAEREERERREREREREEEEEEEEE 





a eee 
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TEST 3: BASIC WRITE DATA SEQ 0147 

1100 : 

1101 [WRITE DATA,CVC=1,ACK,SWB COMMAND 

1103 PISIIIITIITITI IIIT TTI TT LTT TTTTLi iT TTiT iti Teter 

1104 

1105 030726 012737 150005 032560 MOV #150005, T23PK3 ;WRITE DATA, CCST LACK. SWB COMMAND 

1106 030734 012737 150005 032602 MOV #150005 , 12 3uRT ZSETUP FOR RETRY COMMAND 

1107 030742 052737 000 032602 BIS #4000, T23wR [MAKE IT A RETRY 

1108 030750 012704 032560 MOV a2 PKS Re SSET UP R4 WITH PACKET ADDRESS 

1109 030754 010300 MOV R3,RO ZSET PATTERN IN CORRECT REGISTER 

1110 030756 004737 017512 JSR PC. FILLMEM SFILL MEMORY WITH RECORD SIZE 

1111 030762 010337 032566 MOV R3.123SZ 7SET UP RECORD SIZE IN PACKET 

1112 030766 010465 MOV R4.TSDB(RS) Z ISSUE COMMAND 

1113 030772 004737 016340 JSR PC. WAITF [WAIT FOR SSR TO SET 

1114 030776 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 

1115 031002 012702 000200 MOV #SSR,R2 ZSET UP EXPECTED 

1116 031006 020102 CMP R1,R2 TARE THEY EQUAL 

1117 031010 001402 BEQ 80 78R, IF OK 

1118 031012 004737 034132 JSR PC, T23CHK ZCHECK SPECIAL CONDITION 

1119 031016 80$:  CKLOOP SLOOP IF SELECTED 
031016 104406 TRAP — CS$CLP1 

1120 031020 016501 000000 MOV TSBA(RS) R1 :GET TSBA CONTENTS 

1121 031024 012702 032462 MOV #T23BFR,R2 ZSET UP EXPECTED 

1122 031030 06270: 000016 ADD HERO ZSET TO END OF MESSAGE BUFFER 

1123 031034 005737 002216 TST EXTFEA ZCHECK FOR EXTENDED FEATURES SW SET 

1124 031040 001402 BEQ 85$ BR. IF IT NOT SE 

1125 031042 062702 000002 ADD #2,R2 BUMP R2 FOR EXTRA DATA 

1126 031046 020102 85$: CMP R1.R2 TARE THEY E 

1127 031050 001406 BEQ 90$ :BR. IF TSBA IS CORRECT 

1128 031052 005237 002212 INC FATFLG 

1132 031056 ERRHRD ERRNO, 123BA,EXPREC :TSBA WAS MoT CORRECT AFTER R WRITE DATA 
031056 104456 CSERHRD 

31 74 Teono 

031062 033575 “WORD  T23BA 
031064 015564 -WORD EXPREC 

1133 031066 90$:  CKLOOP :LOOP IF SELECTED 
031066 104406 APs CSCLP1 

1134 031070 020327 007376 CMP R3,47376 ZONLY CHECK RAM UNTIL ITS FULL 

1135 031074 002115 BGE 115$ :1T WRAPS AROUND 

1136 031076 004737 034044 JSR PC, T23RT2 [MAKE SURE PACKET AND DATA ARE CLEAN 

1137 031102 012737 000400 032574 MOV #256, 12382 3 STARTING RAM ADDR 

1138 031110 112737 000000 032572 MOVB 723880 STOP INTERNAL TSVOS DIAGNOSTICS 

1139 031116 112737 000000 032573 MOVB 3: 133pst [SIZE OF RAM READ 

1140 031124 012704 032550 MOV #723PK2,R4 SSET RG witH PACKET ADDRESS 

1141 031130 010465 000000 MOV R4, TSDB(RS) TISSUE WRITE SUB SYS MEM COMMAND 

1142 031134 004737 016426 JSR PC. CHKTSSR ; CHECK TSSR AND WAIT FOR SSR TO SET 

1143 031140 103407 BCS 92$ IF NO ERRORS IN TSSR 

1144 031142 010001 MOV ‘ : SAVE TSSR 

1145 031144 005237 002212 INC FATFLG COUNT 

1149 031150 ERRHRD ERRNO, T23WSS,PKTSSR ?TSSR BAD AFTER WRITE SUB SYS MEM 
031150 104456 TRAP CSERHRD 
031152 000475 D 317 
031154 033647 “WORD T23wSS 
031156 012136 -WORD PKTSSR 

1150 031160 92$:  CKLOOP :LOOP IF SELECTED 
031160 104406 TRAP — CS$CLP1 

1151 031162 004737 034044 JSR PC, T23RT2 ;MAKE SURE PACKET AND DATA ARE CLEAN 
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TEST 3: BASIC WRITE DATA SEQ 0148 

1152 031166 012737 000400 032574 MOV #256, 123S2 i STARTING RAM ADDRESS 

1153 031174 112737 000001 032572 MOVB 1,1238S0 [READ RAM COMMAND FOR WRITE SUB SYS M. 

1154 031202 112737 000002 032573 MOVB * 153ps1 SIZE OF RAM READ 

1155 031210 012704 032550 MOV #T23PK2,R6 TSET RG its PACKET ADDRESS 

1156 031214 010465 000000 95$: MOV R4, TSDB(RS) TISSUE WRITE SUB SYS MEM CMD (READ RAM) 

1157 031220 004737 016426 JSR PC’ CHKTSSR SCHECK TSSR AND WAIT FOR SSR TO SET 

1158 031224 103407 BCS 106$ ‘BR, IF NO ERRORS IN TSSR 

1159 031226 010001 MOV RO,R1 3 SAVE TSSR 

1160 031230 005237 002212 INC FATFLG COUNT 

1164 0312346 ERRHRD ERRNO, T23WSS,PKTSSR STSSR BAD AFTER WRITE SUB SYS MEM 
031234 104456 TRAP CSE 
031236 000476 .WORD 318 
031240 033647 “WORD T23wSS 
031242 012136 “WORD PKTSSR 

1165 031244 100$:  CKLOOP :LOOP IF SELECTED 

31 104406 TRAP — CS$CLP1 

1166 031246 005001 CLR R1 ZCLEAR REGISTERS 

1167 031250 005002 CLR R2 [CLEAR REGISTERS 

1168 031252 013701 032502 MOV T23BFR+20,R1 :PICK UP BYTE READ FROM RAM 

1169 031256 010302 MOV R3,R2 [SET UP EXPECTED 

1170 031260 000302 SWAB sR ‘SWAP 

1171 031262 020102 CMP R1,R2 [1S RAM DATA CORRECT 

1172 031264 001406 BEQ 110$ ‘BR, IF OK (EQUAL) 

1173 031266 005237 002212 INC FATFLG [BUMP COUNT 

1177 031272 ERRHRD ERRNO, T23RNC,EXPREC “RNC=RAM NOT CORRECT 
031272 104456 TRAP CSERHRD 
031274 000477 «WORD 319 
031276 033135 “WORD T23RNC 
031300 015564 “WORD EXPREC 

1178 031302 110$:  CKLOOP :LOOP IF SELECTED 
031302 104406 CSCLP1 

1179 031304 005237 032574 INC 123S2 : BUMP RAN ADDRESS TO BE CHECKED 

1180 031310 005237 032574 INC 123S2 [BUMP RAM ADDRES s To BE CHECKED 

1181 031314 010301 MOV R3,R1 GET site OF RECOR 

1182 031316 062701 000400 ADD #256. ,R1 ‘FIGURE OUT END RECORD ADDRESS 

1183 031322 023701 032574 CMP 723S2.R1 ZAT END OF RAM CHECK YET 

1184 031326 001332 BNE 95$ ‘BR, IF MORE TO CHECK 

1185 031330 062703 001750 115$: ADD #1000. .R3 [NEXT RECORD SIZE/DATA PATTERN 

1186 031334 020337 032570 CMP R3,T23RSZ Z1$ R3 OVER MAX RECORD SIZ 

1187 031340 002005 BGE 120$ TIF RECORD SIZE Is TOO BIG QUIT 

1188 031342 020327 177776 CMP R3, 865534. [END OF SUBTEST MAX RECORD SIZE 

1189 031346 001402 BEQ 120$ :BR, IF COMPLETED 

1190 031350 000137 030720 JMP 65$ [D0 MORE RECORDS 

1191 031354 120$: 

1192 031354 004737 034044 JSR T2 ZCLEAN UP PRCKET 

1193 031360 012737 102010 032550 MOV #162010, T23PK2 SREWIND (POSITION) COMMAND 

1194 031366 012704 032550 MOV PK2.R [LOAD R4 WITH PACKET ADDRESS 

1195 031372 010465 000000 MOV are Ts58tes) TISSUE REWIND COMMAND 

1196 031376 004737 016426 JSR PC’ CHKTSSR [WAIT FOR SSR TO SET 

1197 031402 103407 BCS 136$ :BR, IF TSSR IS Ok (GOOD) 

1198 031404 010001 MOV RO,R1 SAVE TSSR CONTENTS 

1199 031406 005237 002212 INC FATFLG 

1203 031412 ERRHRD ERRNO, T23RWN,PKTSSR STSSR IS INCORRECT AFTER REWIND 
031412 104456 TRAP  CSERHRD 
031414 000500 .WORD 320 
031416 033066 “WORD T23RWN 
031420 012136 “WORD PKTSSR 








TSV7 =_HARDWARE TESTS 1-8 
TEST 3: BASIC WRITE DATA 


1204 0314 
1205 0314 

0314 

0314 104403 
1206 031424 023727 002212 
1207 031432 103402 
1208 031434 004737 017272 
1209 031440 
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130$: 


ENDSUB 
000017 CMP FATFLG,#15. 
BLO 999$ 
JSR PC, CKDROP 
999$: 


g>>>>>>>>>>>> we a >>>>>>>>>>>> 
L o 


TRAP C$ESUB 
71S ERROR COUNT AT 25 
2BR, IF LESS THAN 25 
zTRY TO DROP THE UNIT 


SEQ 0149 


ooo 


pn aenoennentiiectnare 


TSV7 = HARDWARE TESTS 1-8 
| TEST 3: BASIC WRITE DATA 


Oe nk ak ad ed ed td od 
MMP NNINPoNofonerngs 
PIII at et et et et ot ot 
NO VONOUESWN 


WWW 
wn 


a SS SI HV YO YY I 





uw 
ouou 
So So 


031440 


031510 


033752 
034106 
034044 


016064 
002212 


002172 
032440 


010752 
002212 
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032460 


“> 


;TEST 3, SUBTEST 4 


VERIFIES THAT A WRITE COMMAND WITH AN ILLE MO 
FIELD OR AN ILLEGAL BUFFER ADDRESS IS REJECT ° WITH 
; THE PROPER ERROR STATUS AND THAT TAPE DOES 


BGNSUB >>>>>>>>>>>> va SUBTEST >>>>>>>>>>>> 


TRAP C$8SUB 
JSR PC, T23REST ;SET COMMAND PACKET 
JSR PC, T23RT3 RESTORE PACKET 
JSR PC, T235RT2 zSET UP OTHER COMMAND PACKET 


J RAAAAAAAAAAAAAAERAERREREEAREERARAERERARAERAREREARRERRERRREREEREEREEE 


ISSUE CONTROLLER “'SOFT'’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


o 
° 
SF RRAAAAAAAAAAAEAAAAAAAAEAEEEEARAAAARRARAARAERAEREERAAEERERERHEREEREEEEEE 


JSR PC, SOF INIT 3D0 INITIALIZE ON CONTROLLER 
BCS 20$ 3BR IF INIT WAS OK 


INC FATFLG : COUNT 
MOV RO,R1 CONTENTS OF TSSR REGISTER 
ERRDF ERRNO,SFIERR,SFIMSG :FATAL ERROR TSSR WAS NOT OK 
TRAP gsenee 


«WORD 
«WORD SFIERR 
«WORD SFIMSG 


20$: 


MOV UNITN, T23DSW 


sSET DRIVE NUMBER IN PACKET 
MOV #T23PACKET RG 


s SUBROUTINE NEEDS PACKET ADDRESS 


FARAAAAAAAAAAAEAAAAERAARAAERAAAERARAARAAAEEREERERRERAERAERERERREREEREEEEE 


WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


° 
J ARAAAAAAAAAAAARARAAAAAEEREREERARAERARAREARERAARRERERRARRREEEREEERERE 


JSR PC .WRTCHR ISSUE WRITE CHARACTERISTICS 
BCS 238 :BR. IF COMMAND ISSUED 
FATFLG 
MOV RO,R1 ZSAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG, SF IMSG [WRITE CHARACTERISTISC FAILED 
CSERHRD 

TeoRD 322 
“WORD 


WRTMSG 
«WORD SFIMSG 
ITIP iii iri iti iii itiiiitititiititiitititTy 


[WRITE DATA, ACK, ILLEGAL BITS 


SEQ 0150 


Sat pe epee 5 
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| TEST 3: BASIC WRITE DATA SEQ 0151 

1366 fF PARRA AAAAAAAAAAAAAAEREREREEEREAAARAAEEEREAEEEREERERERREERGEEEEEEEE 

126 

1266 031540 012737 104405 032560 23$: mov #106605, T23PK3 ZWRITE DATA, ACK, ILLEGAL BITS 

1267 031546 013737 003114 03¢56¢ MOV FREE, 1238 ZSET UP WRITE BUFFER ADDRESS 

1268 031554 062737 000001 03256 ADD 1,723WB ‘MAKE ADDR ESS CDD (ILLEGAL) 

1269 031562 012737 000400 032566 MOV #256. ,123S2 3SET UP BUFFER SIZE 

1270 031570 012704 032560 MOV #T23PK3,RG R4 = POINTER TO PACKET 

1271 031574 010465 MOV R4, TSDB(RS) ISSUE COMMAND 

1272 031600 004737 016340 JSR PC.WAIT Pe ZWAIT FOR SSR TO SET 

1273 031604 016501 02 MOV TSSR(RS), :GET TSSR CONTENTS 

1274 031610 012702 100206 MOV pSsRs sc tO1T1!81T2, R2 SET UP EXPECTED 

1275 031614 020102 CMP R1,R2 z ARE THEY EQUAL 

1276 031616 001406 BEQ 80$ 3BR, IF OK ESP. FUNCTION REJECT 

1277 031620 005237 002212 INC FATFLG 

1281 031624 ERRHRD ERRNO,T23TM,PKTSSR STSSR I! “ORRECT AFTER WRITE COMMAND 
031624 104456 TRAP  C$ERHRD 
031626 503 «WORD 323 
031630 033012 .WORD T23TM 
031632 012136 “WORD PKTSSR 

1282 031634 80$:  CKLOOP :LOOP IF SELECTED 
031634 104406 TRAP CSCLP1 

1283 031636 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
031636 L10047: 
031636 104403 TRAP  CS$ESUB 

1284 031640 023727 002212 000017 CMP FATFLG,#15. z1S ERROR COUNT AT 25 

1285 031646 103402 BLO 7BR, IF LESS THAN 25 

1286 031650 004737 017272 JSR PC, CKDROP [TRY TO DROP THE UNIT 
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| TEST 3: BASIC WRITE DATA SEQ 0152 
| 1289 + 
1290 3 
1291 STEST 3, SUBTEST 5 
1598 [VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA 


sBUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH 
:THE PROPER ERROR STATUS WITHOUT MOVING TAPE 


2 
RARAAAARARAAARARERAAAAARAARARARARARARERAERREREEREREERERAREREREEEEEEE 


CAUTION 


1 
. 
| 4 

1297 3 

1298 ; 

1299 $ 

1300 : The LSI BUS drivers for all available address lines(16-21) 

1301 3 are only checked when running on a 11/238 system with more than 

13 : 128K words of memory! 

1304 : RARAAAAARARARAAAAAAAAAAAARARARARARRARARARERREREREREEREEEAEREAEREREREEEE 

1305 3° 

1306 

1307 031654 BSNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
031654 73.5: 
031654 104402 TRAP C$8SUB 

1308 031656 005737 003126 TST NXMFLG 300 WE HAVE IT? 

1309 031662 001(%2 BNE 10$ :BR, IF ENOUGH 

1310 031664 000137 032070 JMP 90$ sSKIP THIS TEST IF NOT 

1311 031670 004737 033752 10$: JSR PC, T23REST sSET COMMAND PACKET 

1312 031674 004737 034106 JSR PC, T23RT3 SRESTORE PACKET 

isiz 031700 004737 034044 JSR PC, T23RT2 3SET UP OTHER COMMAND PACKET 

1315 J AAAAAAAAAAAAAREEAAAEAAAAAEERARRERAEARAEEAARARESRERERERREREEREEREREEREE 

1316 $ 

ite s ISSUE CONTROLLER “‘SOFT’’ INITIALIZE = CARRY SiT CLEAR IF ERROR 

1319 SReANeReeeeeneeeaneneeeneeeeneneenneneeenaneeeenteneeeeneeenerenees 

1320 

1321 031704 004737 016064 JSR PC, SOF INIT :D0 INITIALIZE ON CONTROLLER 

1322 031710 103407 BCS 20$ sBR IF INIT WAS OK 

1323 031712 005237 002212 INC FATFLG 3 C 

1327 031716 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

1328 031720 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
031720 104455 TRAP CSERDF 
031722 000504 eWORD 324 
031724 003650 -WORD SFIERR 
031726 012124 «WORD SFIMSG 

1329 031730 20$: 

1330 031730 013737 002172 032460 MOV UNITN, T23DSW sSET DRIVE NUMBER UP 

133) 031736 012704 032440 MOV #T23PACKET RS ; SUBROUTINE NEEDS PACKET ADDRESS 

1333 FARAAARAAAEAAEREAREEEAEEEEEERERAARAARAERERERREEEREEREREEREREREEREEEE 

1334 3 

1333 sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

1332 SeeReeeeeeeeeeeeeeeeeeeneeneneeeneeeeeneeeeneneeeeneeeeneeeeeeeeeee 

13 

1339 031742 004737 010752 JSR PC ,WRTICHR s ISSUE WRITE CHARACTERISTICS 

1340 031746 103407 BCS 23$ :BR, IF COMMAND ISSUED OK 

1341 031750 005237 002212 INC FATFLG 38 

1345 031754 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 








TSV7 = ny tire wile’ Atk 
WRITE DAT 


TEST 3: 


1346 031756 
031756 


WWWAWw 
BARREL E 


54 031766 
55 0317 


w 


wi 
oa 
oo 
WwW 
—_— 
~ 
SNe 


WWW 
wMuvi 
won 
ooo 
WWW 
SESS 
Num 
mse 


ee ee ek ed et ed ae ed od dd 
FREE RARER 
NOUEWN— 
So 
w 
Nm 
oS 
& 


w 
N 
_ 
tet) 
mM 
So 
w 
o 


03 
1372 032066 
032 
1373 032070 
1374 032070 
0 
ib 03072 


1378 032106 


021276 


002212 


002212 
017272 
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032560 
032562 
032564 
032566 


000017 


ERRHRD ERRNO,WRTMSG, SF IMSG 


sWRITE CHARACTERISTISC FAILED 
TRAP 


CSERHRD 
WORD 325 
-WORD WRITMSG 
«WORD SFIMSG 


FERAARARAAAAAAAAEEARARAEEREERERERAAARERRERERERERAERARERRARRERERREEREE 


[WRITE DATA, ACK, CVC=1 


° 
FEAAAAAAAAEAAAEARAEAEAEAEEERAAEAERARERREREEREEREEREREREEREEEAREREREEREE 


23$: 


80$: 
90$: 


999$: 


ERRHRD 


CKLOOP 


ENDSUB 


PC, INVERT 
#140005, T23PK3 
NXMLO, T23WB 

NX T23WB+2 


R4, TSDB(RS) 


TSSR(RS) RI 
#SC!NXM!SSR!BIT3,R2 
R1,R2 


FATFLG 
ERRNO, T23TM,PKTSSR 


FATFLG,#15. 
999$ 
PC ,CKDROP 


zs INVERT THE ye oe SWITCH 
:WRI E DATA, vc=1 
SET UP WRITE “BUFFER ADDRESS 
HIGH ORDER ADDRESS BITS 
:SET UP BUFFER SIZE 
zR4 = "cOPPAND PACKET 
SWAIT F OR SSR TO SET 


GET TSSR CONTENTS 
4H + EXPECTED 
ARE THEY EQUAL 


BR. IF al FUNCTION REJECT 
:TSSR INCORRECT AFTER ay COMMAND 


CSERHRD 
GORD 326 
WORD T23TM 
-WORD PKTSSR 
LOOP IF SELECTED 
TRAP CSCLP1 


7>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
£10050: 


TRAP CSESUB 
31S ERROR COUNT AT 25 
2BR, IF LESS THAN 25 
:TRY TO DROP THE UNIT 
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TEST 3: BASIC WRITE DATA SEQ 0154 
1380 3+ 
1381 $ 
138 TEST 3, SUBTEST 6 
1384 S VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A ton 
1385 ‘BUFFER STARTING IN EXISTANT MEMORY BUT RUNNING INT 
1386 ZNONEXISTENT MEMORY TERMINATES WITH THE PROPER ERROR 
1387 sSTATUS. A LARGE ENOUGH RECORD SIZE IS SPECIFIED SUCH 
1388 THAT TAPE IS ACTUALLY MOVED AND WRITTEN. 
1389 g RERARERERERERERERERERERERARARERERERERERERERERERERERERRRERR ERE ERERE 
a 3 CAUTION 
139, : The LSI BUS drivers for all available address lines(16-21) 
139 ; ace only checked when running on a 11/238 system with more than 
1394 : 128K words of memory! 
1395 3 RERAAAEAARAAAEAAEAAEREREAEAAEARAAAKRAAERRARAREARAAEARARREREARERERERERAREEREEEE 
1396 3° 
1397 
1398 Os ioe BGNSUB {>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
032106 104402 "TRAP C$BSUB 
1399 032110 005737 003126 TST NXMFLG 3D0 WE HAVE IT? 
1400 032114 001002 BNE 10$ 3BR, IF ENOUGH 
1401 032116 000137 032402 JMP 130$ + SKIP THIS TEST IF NOT 
1402 032122 004737 034106 10$: JSR PC, T23RT3 SRESTORE PACKET 
1403 032126 004737 033752 JSR PC, T23REST sSET COMMAND PACKET 
sane 032132 004737 034044 JSR PC, T235RT2 :SET UP OTHER COMMAND PACKET 
1406 FERRARA AEREEAERERAREEEEREERRAEKEEAERERERERRERAEREEEERREREEEEREEREEEE 
1407 : 
rss 4 ISSUE CONTROLLER “‘SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
1410 SRRRRRRRRRAERERARRERERERERERERERERRERREREREREREREEREREREEReREKEEEEe 
1411 
1412 032136 004737 016064 JSR PC,SOFINIT 3:d0 gh re oa CONTROLLER 
1413 032142 103407 BCS 20$ :BR IF INIT WAS OK 
1414 032144 005237 002212 INC FATFLG COUNT 
1418 032150 010001 MOV RO,R1 = CONTENTS OF TSSR REGISTER 
1419 032152 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
032152 104455 TRAP CSERDF 
032154 000507 eWORD 327 
032156 003650 eWORD SFIERR 
032160 012124 -WORD SFIMSG 
1420 032162 20$: 
1421 032162 013737 002172 032460 MOV UNITN, T23DSW :SET DRIVE NUMBER IN PACKET 
3 032170 012704 032440 MOV #T23PACKET, R4 ; SUBROUTINE NEEDS PACKET ADDRESS 
1424 FARRAR ARAAAAEAARAAAAEEEEEEERERAARARAARAEREARERERERERAEREREEEEEERREREREE 
1425 3 
1666 sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
1428 PTTTTISTTILELETE LETTE TTT ETT TT TTT TTT TTT TTT TTT TTT TTT 
1429 
1430 032174 004737 010752 JSR PC,WRICHR ZISSUE WRITE CHARACTERISTICS 
1431 032200 103407 BCS 23§ :BR, IF COMMAND ISSUED OK 
1432 032202 005237 002212 INC FATFLG : T 


1436 032206 010001 MOV RO,R1 TSAVE CONTENTS OF TSSR 
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TEST 3: BASIC WRITE DATA 


SEQ 0155 


1437 032210 ERRHRD ERRNO,WRTMSG, SFIMSG ZWRITE CHARACTERISTISC FAILED 
032210 104456 TRAP CSERHRD 

032212 000510 WOR 28 
032214 005054 “WORD WRTMSG 

soe 032216 012124 “WORD SFIMSG 

1439 FERRARA AAARAAAEAAERAEAAREEERERERAERERERARAEERREERARREERERREREREREEEEEE 

1440 : ° 

1461 [WRITE DATA, ACK,CVC=1 

144 ITTITIITILILILICLIT TTT T LTT LiT Titi iT TTT TTT TTT TTT Tee 

1444 

1445 032220 23S: 

1446 032220 737 021276 JSR PC, INVERT s INVERT EXT'D FEATURES 

1447 032224 012737 140005 032560 MOV #140005, T23PK3 WRITE DATA, ACK,CVC=1 

1448 032232 013701 003130 MOV NXMLO,R1 CHIGHEST MEMORY ADDRESS LOW BITS 

1449 032236 162701 001000 SUB #1000.R1 ZSET ADDRESS A LITTLE LOWER 

1450 032242 010137 032562 MOV R1,723WB [LOAD INTO THE KE 

1451 032246 013737 003132 032564 MOV NXMHI, T23WB+2 SHIGHEST MEM ADDRESS I BITS 

1452 032254 012737 000000 032566 MOV #0. ,T23SZ ZSET UP BUFFER SIZE (ak BYTES) 

1453 032262 012704 032560 MOV #T23PK3,RG :R4 = POINTER TO PACKET 

454 032266 010465 000000 MOV R4, TSDB(RS) ZISSUE C 

1455 032272 737 016340 JSR PC. WAITE :WAIT FOR SSR TO SET 

1456 032276 016501 000002 MOV TSSR(RS) RI 7GET TSSR CONTENTS 

1457 032302 012702 104210 MOV #SC!NXM!SSR!BIT3,R2 SSET UP EXPECTED 

458 032306 020102 CMP R1,R2 TARE THEY EQUAL 

1459 032310 001406 BEQ :BR, IF OK ESP. FUNCTION REJECT 

1460 032312 005237 002212 INC FATFLG ‘BUMP T 

1464 032316 ERRHRD ERRNO,T23TM,PKTSSR *TSSR INCORRECT AFTER WRITE COMMAND 
032316 104456 TRAP CSERHRD 
032320 511 «WORD 329 
032322 033012 “WORD T23TM 
032324 12136 - WORD PKTSSR 

1465 032326 80$:  CKLOOP :LOOP IF SELECTED 
032326 104406 TRAP  C$CLP1 

1466 032330 004737 034044 JSR PC. T23RT2 ZCLEAN UP PACKET 

1467 032334 004737 034106 JSR T23RT3 SRESTORE PACKET 

1468 032340 012737 102010 032550 MOV ni62010. T23PK2 EWIND (POSITION) 

1469 032346 012704 032550 MOV PK2.R ‘LOAD R4 WITH PACKET ADDRESS 

1470 032352 010465 000000 MOV aie Tsobtes) TISSUE REWIND C 

1471 032356 737 016426 JSR PC. CHKTSSR [WAIT FOR SSR TO SET 

1472 032362 103407 BCS 130$ 7BR, IF TSSR IS OK (GOOD) 

1473 032364 010001 MOV 0,R1 3SA VE TSSR CONTENTS 

1474 032366 005237 002212 INC FATFLG 

1478 032372 ERRHRD ERRNO, T23RWN,PKTSSR STSSR IS INCORRECT AFTER REWIND 
032372 104456 RAP CSERHRD 
032374 000512 «WORD 330 
032376 03306 -WORD T23RWN 
032400 012136 <WORD PKTSSR 

1479 032402 130$: 

1480 032402 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
032402 L10051: 
032402 104403 TRAP  CSESUB 

481 032404 023727 002212 000017 CMP FATFLG,#15. is ERROR COUNT AT 25 

1482 032412 103402 BLO 9 IF LESS THAN 25 

1483 032414 004737 017272 JSR PC, CKDROP OR TO DROP THE UNIT 

1484 032420 999$: 





—_— 
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Mr 34 032420 
86 032424 


1488 0 
1489 039033 
032432 
2434 


004737 
103002 
000137 


104432 
001664 


016546 
027376 


163$: 





N1 
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PC, TSTLOOP 
163$ 
T23L00P 
TST 


:00 WE NEED TO ITERATE TEST 
NO LOOP REQUIRED 
EXECUTE AGAIN 


zALL DONE THIS TEST 


TRAP CSEXIT 


SEQ 0156 


B 13 








TSV7 = HARDWARE TESTS 1-8 MACRO M1113 25-MAY-82 09:19 PAGE 93 
TEST 3: BASIC WRITE DATA SEQ 0157 
1491 3+ 
yp ;LOCAL STORAGE FOR THIS TEST 
1495 032440 -=<.+10>8177770 
1497 032440 T23PACKET: ;COMMAND PACKET FOR TEST 
1498 032440 100004 «WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK 
1499 032442 032450 «WORD T23DATA zADDRESS OF CHARACTERISTICS BLOCK 
1500 032444 000000 -WORD 0 
1501 032446 000010 -WORD 8. STARTING VALUE OF BLOCK SIZE 
1502 032450 T23DATA: ; CHARACTERISTICS DATA BLOCK 
1503 032450 032462 -WORD T238FR ZADDRESS OF MESSAGE BUFFER 
1504 032452 000000 -WORD O 
1505 032454 000012 -WORD 10. sLENGTH OF MESSAGE BUFFER 
1506 032456 000000 -WORD O 
1507 032460 000000 T23DSW: .WORD 0 sSELECT DRIVE 0 
1308 032462 T238FR: .BLKW 25. sMESSAGE BUFFER 
AS sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
1513 032550 =<. +10>8177770 
1515 032550 T23PK2: 
1516 032550 100006 -WORD 100006 sWRITE SUB SYS MEM COMMAND, AND ACK 
1517 032552 032572 -WORD T23BF2 zADDRESS OF SELECT BLOCK DATA 
1518 032554 000000 «WORD O 
1319 032556 000006 -WORD 6. sSIZE OF DATA PACKET 
1524 032560 T23PK3: 
1525 032560 100005 -WORD 100005 sWRITE COMMAND, AND ACK 
1526 032562 000000 T23WB: .WORD 0 sADDRESS OF WRITE BUFFER 
1527 0325 000000 -WORD 0 
1528 032566 000000 T23SZ: .WORD 0 sSIZE OF BUFFER (EXTENT) 
1265 EVEN 
1331 032570 000000 T23RSZ: .WORD 0 ;LARGEST TAPE RECORD IN BYTES 
1533 3 
1534 032572 T238F 2: 
1535 032572 010 723880: .BYTE 10 sBSELO AREA 
1536 032573 200 T238S1: .BYTE 200 sBSEL1 AREA 
1537 032574 000000 T2382: .WORD 0 sSEL 2 AREA 
1338 032576 000000 T2383: .WORD 0 DATA AREA 
1540 : 
1541 032600 000000 T23TMP: .WORD 0 s TEMPORARY REGISTER 
13s 032602 000000 T23WRT: .WORD 0 sRETRY COMMAND 
1544 EVEN 
saee 3; TAPE MOTION PACKET COMMAND VALUES 
1547 032604 100005 T23WD: .WORD 100005 sWRITE DATA (NEXT) 
1548 032606 100405 T23WDR: .WORD 100405 sWRITE DATA RETRY 
1549 032610 102005 T23CON: .WORD 102005 sWRITE CONTINOUS 
1329 032612 177777 eWORD 177777 zEND OF DATA 
1552 
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| TEST 3: BASIC WRITE DATA f SEQ 0158 
1554 
1555 3+ 
1328 sLOCAL TEXT MESSAGES FOR TEST 
| 1558 ° 
1559 032614 127 122 111 T23SSR: .ASCIZ ‘WRITE Command oy Accepted’ 
1560 032647 105 117 124 T23ET: .ASCIZ ‘EOT Not Found In 12000 4k Writes, (Use Shorter Tape)’ 
1561 032734 127 122 111 T23EOT: .ASCIZ ‘WRITE DATA OVER’ EOT GAVE NO TAPE STATUS ALERT’ 
1366 033012 124 123 123 T23TM: .ASCIZ ‘TSSR Not coorece After WRITE Command Reject’ 
1563 033066 122 145 167 T23RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
1564 033135 122 101 115 T23RNC: .ASCIZ ‘RAM Error, Correct Data Pattern Not In Ram’ 
1565 033210 124 123 123 T23AM3: .ASCIZ ‘TSSR Init. Failed After WRITE Command’ 
1566 033256 104 162 151 T230FL: .ASCIZ ‘Drive 7 Select Failed To Set ‘OFL' I In TSSR* 
1567 033331 124 123 123 T23WOD: .ASCIZ ‘TSSR Not Correct After WRITE DATA Command, Sw Bit 
1568 033420 124 123 123 T23WDC: .ASCIZ ‘TSSR Not Correct After WRITE DATA Command, Check A, - Offline’ 
1569 033522 103 126 103 T23VCK: .ASCIZ *CVC Set, Didn*®*t Reset VCK In Message Buffer’ 
1570 033575 124 123 102 T238A: .ASCIZ ‘TSBA Not Correct After WRITE DATA Command’ 
1571 033647 127 122 111 T23WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
1572 033736 102 141 163 TST23ID: eASCIZ ‘Basic Write’ 
1573 EVEN 
13 f 
1576 * ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
ie WRITE SUBSYSTEM MEMORY COMMAND 
it La :- 
1580 
1581 033752 T23REST: 
1582 033752 SAVREG oa a REGISTERS 
1583 033756 012701 032440 MOV STESPACKET R1 START OF THE PACKET 
1 033762 012721 100004 MOV 100004, (Ri)+ eRITE SUBST STEN MEM. WITH ACK 
bs 033766 012721 032450 MOV a1Z3DATA, (R1)+ ZADDRESS yt oe DATA BLOCK 
1586 033772 005021 CLR bo _ TEXTENDED A DRESS 
1587 033774 012721 000012 MOV sSIZE OF DATA BLOCK IN BYTES 
1588 034000 012721 032462 MOV sTORBER cRID® TADDRESS OF MESSAGE BUFFER 
1589 034004 005021 CLR (R1)+ 
1590 034006 012721 000024 MOV #20.,(R1)+ ;LENGTH OF MESSAGE BUFFER 
1591 034012 005021 CLR (R1)+ 
1592 03401 012711 000000 MOV #0,(R1) ape 33 DRIVE ZERO 
1593 034020 012702 000030 MOV #24. ,R2 R OF LOCATIONS TO 3 CLEARED 
1594 034024 012762 177777 032462 64$: MOV #177777, T23BFR(R2) TALL yl TO MESSAGE BUFFER 
1595 034032 005742 TST -(R2) ‘BUMP D TO NEXT LOCATION 
1596 034034 020227 000000 CMP R2,40 :R2 AT fOERO YET 
1597 034040 001371 BNE 64$ sKEEP GOING UNTIL DONE 
1598 034042 000207 RTS PC [RETURN 
1599 
1600 
1601 034044 T23RT2: 
1602 034044 SAVREG sSAVE THE eeeisrens 
1603 034050 012701 032550 MOV #T23PK2,R1 START OF THE PACKET 
1604 034054 012721 100006 MOV #100006, (R1)+ [WRITE SUBSYSTEM MEM. WITH ACK 
1605 034060 012721 032572 MOV ole wer eo (R1)¢ ‘ADDRESS OF DATA BLOCK 
1606 034064 005021 CLR sEXTENDED ADDRESS 
1607 034066 012721 000006 MOV gY (R1)+ sSIZE OF DATA BLOCK IN BYTES 
1608 034072 012701 032572 MOV wTe3BFe, R1 [POINT TO DATA SEL AREA 
1609 034076 005021 CLR 
1610 034100 005021 CLR rite 
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1611 034102 065011 

1612 034104 000207 

1613 034106 

1614 034106 

1615 034112 012701 032560 

1616 034116 012721 100005 

1617 034122 00502 

1618 034124 005021 

1619 034126 005011 

1620 034130 20 

1621 

1622 

1623 

1624 

et 

1626 

1627 

1666 

1630 034132 

1631 034132 

1632 034136 5037 032600 

1633 034142 032701 100000 

1634 034146 1452 

1635 034150 013702 032472 

1636 034154 032702 000002 

1637 034160 001401 

1638 034162 00040 

1639 034164 032702 020000 

1640 034170 00100 

1641 034172 000440 

1642 034174 000207 

1643 

1644 034176 

1645 034176 012703 

1646 034202 013737 003114 

1647 034210 012737 032602 

1648 034216 012704 032560 

1649 034222 010300 

1650 034224 004737 017512 

1651 034230 010337 032566 

1652 034234 010465 000000 

1653 034240 737 016340 

1654 034244 016501 000002 

1655 034250 012702 000200 

1656 034254 020102 

1657 034256 001746 

1658 034260 005237 032600 

1659 034264 022737 000005 

660 034272 001341 

1661 O32 %o0 005237 002212 
034 013702 032462 


304 
304 104456 
306 000513 
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SEQ 0159 


CLR (R1) 
RTS PC ;RETURN 

T23RT3: 
SAVREG seaye THE REGISTERS 
MOV #T23PK3,R1 2ST ART ° THE PACKET 
MOV #100005, (R1)¢ ITE TAPE. WITH ACK 
CLR (R1 T ADDRESS ' DATA BLOCK 
CLR (Ride sEXTENDED ADDRESS 
CLR (R1) sSIZE OF DATA BLOCK 
RTS PC sRETURN 

:* 

ROUT INE TO RETRY WRITE DATA IN CASE OF BAD TAPE FOR TEST 

33. SUBTEST 2 & 3 

INPUTS: R1=TSSR 

: SUBROUTINE SETS UP T23WRT FOR RETRY 

T23CHK: 
SAVREG sSAVE THE REGISTERS 
CLR T23TMP :CLEAR LOCAL REGISTER 
BIT $4 Fe il C SET IN TSSR? 
BEQ é GOT PROBLEMS! 


MOV TeaBFRe10 R2 
BIT mx. UNC ,R2 


BEQ 
BR RETR 
1$ BIT OX1 COR.R2 
BNE RETRY 
BR FATAL 
EXIT: RTS PC 
RETRY 
$: MOV #20. ,R3 
032562 MOV FREE, T23WB 
032560 MOV #T23WRT.123PK3 
MOV #T23PK3,RG 
MOV R3,RO 
JSR PC.FILLMEM 
MOV R3.123SZ 
MOV R4.TSDB(RS) 
JSR PC.WAITF 
MOV TSSR(RS),R1 
MOV #SSR,R2 
CMP R1,R2 
BEQ EXIT 
INC T23TMP 
032600 CMP #5,T23TMP 
BNE 2$ 
FATAL: INC FATFLG 


MO T23BFR,R2 
ERRHRD ERRNO, SCHERR,PKTMES 





. ' ou 
aves eer XSTAT1 


COR R SET I IN XSTAT1 THEN? 


:IS 
ZNO, 
iy DO URITE DATA RETRY 
7Y¥ 
:NO, yOu GOT " PROBLEMS 
:RETURN 


SETUP BY SUBROUTINE 


:SET PATTERN IN CORRECT REGISTER 

sFILL MEMORY WITH RECORD SIZE 

3SET UP RECORD SIZE IN PACKET 
oo 


WA OR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

sTRY FIVE TIMES THEN EXIT 
FIVE YET? 


[LOW ORDER MSGBUF 
[TSSR INCORRECT AFTER WRITE DATA 


CSERHRD 
° 331 
WORD SCHERR 
-WORD PKTMES 
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MACRO M1113 25-MAY-82 09:19 PAGE 94-2 
TEST 3: BASIC WRITE DATA 


1667 034314 064737 017272 JSR PC ,CKDROP zDROP THE UNIT 

1668 034320 ENDTST 
0 0 L10043: 
034320 104401 





TR 


AP 


CSETST 


SEQ 0160 


aie 


eee oe 


TSV7 = HARDWARE TESTS 1 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE 


it 
| 





1670 
1 


$ 


kk at ss os ed es 
SANNA 
ek dd dd ed ed 
WDONAUSWN—O 


Ce See ee ee ee ey 
~S~N ~ 
Mnsnonsnsnsnons 
NAQu 


012737 
7 


012737 


006356 002170 
003124 


6 
00005 002206 
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-SBTTL TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
:* 
;THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE 
7COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
‘DATA BUFFER BOUNDARIES RECORD SIZES (UP TO 64K BYTES IF MEMORY 
[SPACE IS AVAILIABLE), AND BYTE=SWAP CONTROL ARE USED. THIS TEST 
[OF COURSE, FURTHER vERIMiEs THE WRITE DATA COMMAND BY ACTUALLY 
ZREADING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER 
; TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH 
ONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA 
Burren ADDRESSES, ILLEGAL CCDES IN THE MODE FIELD OF THE BASIC 
[READ COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY. THE TEST 
ZTHE TEST CONSISTS OF THE FOLLOWING 14 SUBTESTS 
2 BGNTST ie 
MOV #EPRT1,EPRTSW ZSET uP PRIMARY ERROR MESSAGE 
CLR KTENABLE + TURN KT11 
JSR PC,KTOFF + TURN er "11 “OFF 
MOV #TST241D,RO zASCII MESSAGE To IDENTIFY TEST 
JSR PC, TSTSETUP O INITIAL TEST yet uP 
JSR PC.MEMCK . HECK FOR MEMOR 
MOV #5. LOOPCNT [PERFORM 5 ITERATIONS 
s¢ 
:TEST 4, SUBTEST 1 ” 
SVERIFIES THAT A READ DATA COMMAND WITH THE CLEAR 
SVOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE 
ZVOLUME CHECK (VCK) IS SET. pfu LEGAL 
[COMBINATIONS OF THE COMMAND MODE FIELD ARE TESTED 
:(1.£., IT IS VERIFIED THAT THE COMMAND IS REJECTED 
:DUE TO VCK BEING. SET RATHER THAN ERRONEOUS DECODING 
[OF THE MODE FIELD 
T24LO00P: 
BGNSUB $>>>>>>>>>>>> Seen Sustest >>>>>>>>>>>> 
"TRAP 
JSR PC, T24REST :SET COMMAND PACKET 


046250 
046404 


046342 
176750 043736 


P K 

JSR PC. T26R RT [SET UP OTHER COMMAND PACKET 
12 [SET UP OTHER COMMAND PACKET 

MOV 965000" F24LY [LOAD UP DELAY ROUTINE 


STAAAAAAAAAAAAAAEAAAEAAEAAAEAERARAAAAEAAEREREREEREREEERAEEREEREEEEEEEE 


ISSUE CONTROLLER “‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


SEQ 0161 


[ne 
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| TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0162 
} 
| -1728 : 
17e8 FARRAR AAARARAARARAAEAREREEAAAAAAEEEERRARAARAREREARERERERERREREEEE 
1730 
1731 034406 004737 016064 S$: JSR PC, SOFINIT :D0 INITIALIZE on CONTROLLER 
1732 034412 103426 BCS 20$ R IF INIT WAS OK 
1733 034414 DELAY 250 ‘DELAY NOHILE 
034414 012727 000250 MOV #250, (PC)+ 
034420 000000 WORD 
034422 013727 002116 MOV LSDLY, (PC)+ 
034426 000000 WORD 
034430 005367 177772 DEC -6(PC) 
034434 001375 BNE 4 
034436 005367 177756 DEC =22(PC) 
034442 001367 BNE .-20 
1734 034444 005337 043736 DEC T24DLY :BUMP DELAY COUNTER 
1735 034450 001356 BNE 5$ [BR, IF MORE DELAY REQUIRED 
1736 034452 005237 002212 INC FATFLG ‘BUMP COUNT 
1740 034456 010001 MOV RO,R1 [CONTENTS OF TSSR REGISTER 
1741 034460 ERRDF ERRNO, SFIERR, SF IMSG [FATAL ERROR TSSR WAS NOT OK 
034460 104455 TRAP CSERDF 
034462 000621 .WORD 401 
034464 003650 “WORD SFIERR 
034466 012124 ; -WORD SFIMSG 
1742 034470 20S: 
1743 034470 012737 000007 043610 MOV #7,T24DSW ZSET DRIVE NUMBER IN PACKET 
24h 034476 012704 043570 MOV #TOGPACKET RG [SUBROUTINE NEEDS PACKET ADDRESS 
1746 J TEARAAAAAAAAAAAARAAARARERERERAAARAARERERAAAEREEAREREEEEEERRAEREERKEEE 
1747 : 
1748 ZWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
1750 SReeeeeeeeeeneeeeeeeeeeereeneneenanneneeneneeneneeeeneneeeneeeeneee 
1751 
1752 034502 004737 010752 JSR PC,WRTCHR ZISSUE WRITE CHARACTERISTICS 
1753 034506 103407 BCS 24$ 7BR, IF COMMAND ISSUED OK 
1754 034510 005237 002212 INC FATFLG [BUMP C 
1758 034514 010001 MOV RO,R1 [SAVE CONTENTS OF TSSR 
1759 034516 ERRHRD ERRNO, WRTMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
034516 104456 TRAP § CSERHRD 
034520 000622 .WORD 402 
034522 005054 “WORD WRTMSG 
034524 012124 -WORD  SFIMSG 
1760 034526 005737 002216 24$: TST EXTFEA ZCHECK FOR EXTENDED FEATURES Sw SWITCH 
1761 034532 001044 BNE 50$ [BR IF SWITCH IS ON 
1763 034534 112737 000200 043721 MOVB #200,124BS1 :WRITE MISCELLANEOUS CONT/READ STATUS 
1764 034542 112737 000010 043720 MOVB #10, 724850 UNCTION SELECTION BIT (TURN ON EXTFEA Hw SWITCH) 
1765 034550 012704 0437 MOV arotense RG 3WRITE SUBSYS MEM PACKET 
1766 034554 010465 000000 MOV R4, TSDB(RS) UE COMMAND 
1767 034560 004737 016426 JSR PC CHKTSSR ‘WAIT FOR SSR 
1768 034564 103407 BCS 30$ :BR, IF NO ERROR 
1769 034566 010001 MOV RO,R1 ZERROR, SAVE TSSR 
1770 034570 005237 002212 INC FATFLG 
1774 034574 ERRHRD ERRNO, T24SSR,PKTSSR STSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
034574 104456 TRAP — CSERHRD 
034576 000623 «WORD 403 
600 044457 “WORD  T24SSR 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0163 
034602 012136 .WORD PKTSSR 
1775 034604 30$:  CKLOOP :LOOP IF SELECTED 
034604 104406 TRAP _ CS$CLP1 
_--1776 034606 012737 000007 043610 MOV #7,T240SW ZSET DRIVE NUMBER IN PACKET 
| W777 034614 012704 043570 MOV #TOGPACKET,R4 : SUBROUTINE NEEDS PACKET ADDRESS 
| 1779 FAARAAAAAAAAAAAAAAAAAAREREAERERAAAAARAAARARRERRERAEEEREARERERAARERAREEEE 
1780 $ 
1781 [WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
1783 TTTISITILITILILELELTLT TET TLE T TTT TTT TTT TTT TTT TTT 
1784 
1785 034620 004737 010752 JSR PC,WRTCHR TISSUE WRITE CHARACTERISTICS 
1786 034624 103407 BCS 50$ :BR, IF COMMAND ISSUED 
1787 034626 005237 002212 INC FATFLG [BUMP COUNT 
1791 034632 010001 MOV RO,R1 ZSAVE CONTENTS OF TSSR 
1792 034634 ERRHRD ERRNO, WRTMSG, SF IMSG [WRITE CHARACTERISTISC FAILED 
034634 104456 CSERHRD 
034636 000624 TeonD 404 
034640 005054 “WORD  WRTMSG 
034642 012124 -WORD SFIMSG 
1793 034644 50$:  CKLOOP :SCOPE LOOP 
034644 104406 TRAP _— CS$CLP1 
1794 034646 016501 000002 MOV TSSR(RS) RI :GET TSSR CONTENTS 
1795 034652 032701 000100 BIT #OFL,RI + CHECK FOR THE OFFLINE BIT SET 
1796 034656 001006 BNE 60$ :BR. IF OFFLINE (GOOD) 
1797 034660 005237 002212 INC FATFLG COUNT 
1801 034664 ERRDF ERRNO, T240FL,SFIMSG :OFF LINE SHOULD HAVE BEEN SET (BAD) 
034664 104455 TRAP  CSERDF 
034666 000625 WORD 
034670 045235 [WORD  T240FL 
034672 012124 -WORD SF IMSG 
1802 034674 60$:  CKLOOP :LOOP IF SELECTED 
034674 104406 TRAP — C$CLP1 
1803 034676 012703 043726 MOV #T24RN,R3 ZPOINTER FOR COMMANDS 
1805 J ERAAAAAAARAAAEAAEEAAAAAREAAAEAARAAARAARERAEEEREREREREREEREERAEREEEREEE 
1806 : 
Hh 3 TAPE READ COMMAND IN PLACE 
1809 SReeReneeeenereeeneeeeeereeneneeenennneneeeeeenneeeennneeereeeeees 
1810 
1811 034702 011337 043710 65$: MOV (R3), T24PK3 ;TAPE READ COMMAND IN PLACE 
1812 034706 012704 043710 MOV #T24PK3,R4 :R4 = POINTER TO PACKET 
1813 034712 010465 000000 MOV R4, TSDB(RS) :1SSUE_ COMMAND 
1814 034716 004737 016340 JSR PC.WAITF WAIT FOR SSR TO SET 
1815 034722 016501 000002 MOV TSSR(R5) RI :GET TSSR CONTENTS 
1816 034726 012702 100306 MOV pSshiSc!OFL !B1T1!B1T2, R2° :SET UP EXPECTED 
1817 034732 020102 CMP R1,R2 _ gARE THEY E 
1818 034734 001406 BEQ 80$ 3BR. IF Ok ESP. FUNCTION REJECT 
1819 934736 005237 002212 INC FATFLG 
1823 034742 ERRHRD ERRNO, T24TM,PKTSSR STSSR INCORRECT AFTER TAPE MOTION C 
034742 104456 TRAP CSERNAD 
034744 000626 «WORD 406 
034746 044773 <WORD T24TM 
750 012136 “WORD PKTSSR 


034750 
1824 034752 80$: CKLOOP LOOP IF SELECTED 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0164 
034752 164406 TRAP CS$CLP1 
1825 034754 005723 TST (R3)+ ;BUMP TO NEXT COMMAND 
1826 034756 022713 177777 CMP #177777, (R3) sEND OF THE COMMANDS YET 
1827 034762 001401 BEQ 90$ :BR, IF DONE 
1828 034764 000746 BR 65$ *MORE COMMAND(S) TO GO 
1829 034766 90$: 
1830 034766 ENDSUB {>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
034766 L10053: 
034766 104403 TRAP CSESuB 
1831 034770 023727 002212 000017 CMP FATFLG,#15. :1S ERROR COUNT AT 25 
1832 034776 103402 BLO 999$ :BR, IF LESS THAN 25 
1833 035000 004737 017272 JSR PC, CKDROP : TRY TO DROP THE UNIT 


3 
1834 035004 999$: 





ae nr a 


a SO 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0165 
1836 3¢ 


8 : 
838 sTEST 4, SUBTEST 2 


1 

: 

1840 :VERIFIES THAT READ FORWARD COMMANDS WITH SwB=0 

1841 sOPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN 
ioe sWRITTEN WITH A SERIES OF a weit VARING IN 

184 LENGTH AND DATA CONTENT. THE TAPE IS THEN REWOUND 
1844 sAGAIN AND THE oe READ SEQUENTIALLY AND RESULTS 
184 (STATUS, DATA, ETC.) VER - IED. THE BYTE COUNT ON 
1846 EACH READ FORWARD COMMAND IS SET TO THE LENGTH OF THE 
Mb ot ZEXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD 


1849 * 

1850 : 

18e2 ; 

1853 035004 : BGNSUB y>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
035004 14.2: 
035004 104402 C$BsuB 

1854 035006 004737 046404 JSR PC, T24RT3 :SET UP OTHER COMMAND PACKET 

1855 035012 004737 046250 JSR PC’ T24REST [SET COMMAND PACKET 

1856 035016 004737 046342 SR PC; T24RT2 [SET UP OTHER COMMAND PACKET 

1858 FERRARA AAAAAAAEAAAAAEAARAAAEERAERARARAARAAAEAAEAERERERAARERERKERKEEEREEEE 

1859 : 

1860 SISSUE CONTROLLER “'SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 

1866 Seeeeeeeeeeneeeeeeeeeeeeeneeeneeeenneneeeneneeeneneeeeeereneeeeeees 

186 

1864 035022 004737 016064 JSR PC, SOF INIT :D0 INITIALIZE ON CONTROLLER 

1865 035026 103407 BCS 208 [BR IF INIT WAS OK 

1866 035030 005237 002212 INC FATFLG : COUNT 

1870 035034 010001 MOV RO,R1 [CONTENTS OF TSSR REGISTER 

1871 035036 ERRDF ERRNO, SFIERR, SFIMSG [FATAL ERROR TSSR WAS NOT OK 
035036 104455 TRAP — CSERDF 
035040 000627 . .WORD 407 
035042 003650 “WORD  SFIERR 
035044 012124 “WORD SFIMSG 

1872 035046 208: 

1873 035046 013737 002172 043610 MOV UNITN, T24DSW :SET DRIVE NUMBER IN PACKET 

187% 035054 012704 043570 MOV = #T24PACKET.R4 SSUBROUTINE NEEDS PACKET ADDRESS 

1876 FEAAAAAAAAAAAATAERAAAAEEAAEAAARAEAEAEARAAREREREERERERERERERREREREEEEEERE 

1877 ; 

1878 [WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

1880 S Reeeeeteeeneeeeeeeeeeeneteeneneeneeeeenaneeeeennereneneneneeseeees 

1881 

1882 035060 004737 010752 JSR PC ,WRTCHR SISSUE WRITE CHARACTERISTICS 

1883 035064 103407 BCS 248 BR TE COMMAND ISSUED OK 

1884 035066 005237 002212 INC FATFLG 

1888 035072 010901 MOV RO,R1 : SAVE CONTENTS OF TSSR 

1889 035074 ERRHRD ERRNO,WRTMSG, SF IMSG WRITE CHARACTERISTISC FAILED 


104456 CSERHRD 
0006 "ORD 408 
«WORD WRTMSG 





035102 
1890 035104 
035104 


333 3 


tk ek et tt a os 
te ed ad ed od 
WODBNOUSWN—oO 


Sesesssseosses 


03 
1924 035166 

035166 
1925 035170 
13e8 035174 


19 
4434 035210 





012124 
104406 


rf 3 
005237 
104456 
000631 
045046 
012136 
104406 


013701 
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011104 


002212 


043620 
000002 


002212 
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043712 


043710 


248: CKLOOP 


- WORD 
TRAP 


sLOOP IF SELECTED 


FTAA AAAAAAAARAAAARAAREREREARAAAERAARERARAREREREEEAEEEEREEERREREEEEE 


TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


o 
FERRARA AAAAAAAAARAAARAAAARERAERAAERAAAAAARAARERRERERERERERAERAEEEERREREE 


JSR PC REWIND 
BCS 30$ 
MOV RO,R1 


INC FATFLG 
ERRHRD ERRNO, T24RWN,PKTSSR 


30$: CKLOOP 


sCALL TAPE REWIND COMMAND 
2BR, IF NO PROBLEM 


zSAVE TSSR 
: COUNT 
sREWIND NOT ACCEPTED 


LOOP IF SELECTED 
TRAP 


FARRAR ARARARAAEEAAERAEREREERARARERAEARERERERERRAEREEARAERARERERRERRERE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
FERRARA AAAAEAAARARARAEAAEEAEAAARAEERAAEARRARERRARRARARARARRERREKERREE 


MOV reteenss. R1 
R1,R2 


MOV 

BIS #eiT1, R2 

CMP R1,R2. 

fe 

ERRHRD ERRND  T24BOT .EXPREC 
40$: CKLOOP 


MOV #256. ,R3 
MOV FREE. T24RB 


zPICK UP _XSTO 

zSET UP_EXPECTED 

SET BOT BIT IN Seuss 
DOES EXP = REC'D 

BR, IF EQUAL (OK) 

> BUMP 


COUNT 
TAPE NOT AT BOT AFTER — 
TTORD 
- WORD 
«WORD 


TRAP 


LOOP IF SELECTED 
sRECORD SIZ 


E 
sSTARTING WRITE BUFFER ADDRESS 


FARAAAAAAAAAAAAEAERAAEREEAEAEAAARAAREREAREERARARAERRERERRRAERERREREEE 


[WRITE DATA,CVC=1,ACK COMMAND 


. 
e 
SRAAARAAAAAAAAEAAAAAAEREAAEEAAERAARAERERAEAERAERAREREEREREREREEEEREREERE 


MOV 

MOV 
65$: 

MOV R3,RO 

JSR PC,FILLMEM 

MOV R3,72482 

MOV R4, TSDB(RS) 


#140005 , T24PK3 
#T24PK3,R4 


sWRITE DATA,CVC=1,ACK C 


OMMAND 
7SET UP R4 WITH PACKET ADDRESS 
sagt PATTERN IN yd mesisten 


sFILL MEMORY WITH RECORD SIZE 
SET UP RECORD SIZE IN PACKET 
; ISSUE COMMAND 


SF IMSG 
CSCLP1 


CSERHRD 
409 
T24RWN 
PKTSSR 


CSCLP1 


CSERHRD 
410 


T24B80T 
EXPREC 


CSCLP1 


SEQ 0166 


a) 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0167 
1941 035232 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 
1906 035236 016501 000002 MOV TSSRC(RS),RI sGET TSSR CONTENTS 
1943 035242 012702 000200 MOV #SSR,R2 zSET UP EXPECTED 
1944 035246 020102 CMP R1,RO TARE THEY EQUAL 
1945 035250 001406 BEQ 75$ 7BR, IF OK 
1946 035252 005237 002212 INC FATFLG ;BUMP COUNT 
1950 035256 ERRHRD ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER pag DATA 
035256 104456 + ae 
035260 000633 TeORD 
035262 005111 WORD URTERR 
035264 012136 «WORD PKTSSR 
1951 035266 75$: CKLOOP ;LOOP IF SELECTED 
35 104406 TRAP CSCLP1 
1952 035270 005723 TST (R3)+ ;BUMP RECORD SIZE 
1953 035272 022703 000414 CMP #268. ,R3 sEND OF ant YET 
1954 035276 001346 BNE 65$ ‘BR, IF MORE RECORDS TO WRITE 
1955 035300 80S: CKLOOP SLOOP IF SELECTED 
035300 104406 TRAP CSCLP1 
136 035302 120$: 
1958 FERRARA AEARREREERERERRERRERERERERRERREAEERERRRERERERRREREEEE 
1959 : 
i3ee z ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
1962 SRRRRRRRERERRERERERERAERERERRRRERARERN EERE REE ERERERERRRERRREEEREES 
1963 
1964 035302 004737 011104 JSR PC REWIND :CALL TAPE REWIND COMMAND 
1965 035306 004737 016426 JSR PC,CHKTSSR sSEE HOW TSSR IS 
1966 035312 103407 BCS 130$ 7BR, IF NO PROBLEM 
1967 035314 010001 MOV RO,R1 sSAVE TSSR 
1968 035316 005237 002212 INC FATFLG : COUNT 
1972 035322 ERRHRD ERRNO, T24RWN,PKTSSR sREWIND NOT ACCEPTED 
035322 104456 TRAP CSERHRD 
035324 000634 eWORD 412 
035326 045046 eWORD T24RWN 
035330 012136 -WORD PKTSSR 
1973 035332 130$: CKLOOP ;LOOP IF SELECTED 
976 035332 104406 TRAP CSCLP1 
1975 FRAAAAAAAAARERREREREREREREERERERERRREREREREERERRRERERRERREREREEREREEE 
1976 : 
Hh sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
1979 S ReeeeeeReeReeeReeReeeeeeeeeneneeeneeeeeeneeeeneneeeneneneeneneeene 
1980 
1981 035334 013701 043620 MOV retaens. R1 sPICK UP xSTO 
1982 035340 010102 MOV 1,R2 sSET UP EXPECTED 
1983 035342 052702 000002 BIS fait oR2 SET B01 gt! IN cMPECTED 
1984 035346 020102 CMP R1,R R2° [DOES EXP = REC'D 
1985 035350 001406 BEQ 1408 ZBR, IF EQUAL (OK) 
1986 035352 005237 002212 INC FATFLG ;BUMP COUNT 
1990 035356 ERRHRD ERRNO, T24B0T, EXPREC + TAPE NOT AT BOT AFTER REWIND 
035356 104456 TRAP CSERHRD 
035360 000635 -WORD 413 
035362 044563 eWORD T24B0T 


035364 015564 «WORD EXPREC 
1991 035366 140$: CKLOOP zLOOP IF SELECTED 








2001 035402 
2002 035410 
2003 035414 
2004 035420 
2005 035424 
2006 035430 
2007 035434 


3 
2015 peeeee 
s016 Oseree 


0 5 
2037 Bteere 
2038 035546 

035546 


035546 
2039 035550 
2040 035556 
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gan 


104456 
000637 
044630 
015564 


104403 
023727 
103402 
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000400 


003114 043712 


479008 043710 


000002 
000200 


002212 


003114 
000400 


002212 


000412 


002212 000017 


SEQ 0168 
TRAP CSCLP1 
MOV #256. ,R3 sRECORD SIZE 
MOV FREE, Scre STARTING READ BUFFER ADDRESS 
PTT iii itis ii tit itiiiitiitititiitititit) 


[READ DATA,CVC=1,ACK COMMAND 


e 
FERRARA AAAAAAERERRARERERAEARERAERERAREREAERAERAREAERERERERERERREEEREREREE 


MOV #140001, T24PK3 READ DATA,CVC=1,ACK COMMAND 
T24PK3,R4 7SET UP R4 WITH PACKET ADDRESS 


165$: MOV 
MOV R3, 7245 :SET UP RECORD SIZE IN PACKET 
MOV R4.TSDB(RS) Z ISSUE COMMAND 
JSR “WAIT ZWAIT FOR SSR TO SET 
MOV TSSR(R5)R1 [GET TSSR CONTENTS 
MOV #SSR,R2 :SET UP EXPECTE 
CMP Rd TARE THEY EQ 
BEQ sBR, IF 
INC FATFLG : COUNT 
ERRHRD ERRNO, RDERR,PKTSSR STSSR INCORRECT AFTER READ DATA 
TRAP  CSERHRD 
.WORD 414 
“WORD  RDERR 
“WORD PKTSSR 
170$:  CKLOOP :LOOP IF SELECTED 
TRAP — C$CLP1 
MOV FREE ,R2 :GET BUFFER ADDRESS 
MOV R3,R4 [CURRENT RECORD SIZE 
SUB #256. .R4 :FIRST LOCATION IN BUFFER 
173$: ADD R2,R4 3GET LOCATION IN BUFFER (ADDRESS) 
CMP (R4) ,R3 ZCHECK DATA READ (R3=DATA ALSO) 
BEQ 180$ 7BR, IF ALL IS WELL 
MOV (R4),R1 =RECD DAT 
MOV 3,R2 ZEXPECTED ‘DATA 
INC FATFLG ‘BUMP COUNT 
ERRHRD ERRNO, T24DTA, EXPREC [DATA READ NOT = WRITTEN 
TRAP  CSERHRD 
«WORD 415 
“WORD T24DTA 
“WORD EXPREC 
180$:  CKLOOP ZLOOP IF SELECTED 
TRAP _— C$CLP1 
TST (R4)+ ;BUMP TO NEXT LOCATION 
SUB R2,R4 :GET BACK TO CORRECT SIZE 
CMP R4-R3 SEND OF RECORD YET 
BNE 173$ :BR, IF NOT AT END OF RECORD 
TST (R3)+ ‘BUMP RECORD SIZE 
CMP #266. ,R3 [END OF RECORD YET 
BNE 65$ [BR, IF MORE RRECORDS TO WRITE 
190$:  CKLOOP [LOOP IF SELECTED 
TRAP — CSCLP1 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10054: 
CSESUB 
CMP FATFLG,4#15. 71S ERROR COUNT n Ms 
BLO 999$ :BR, IF LESS THAN 25 
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TSV7? = HARDWARE TESTS 1-8 MACRO M1113 25-MAY-82 09:19 PAGE 96-4 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0169 


2041 035560 064737 017272 JSR PC, CKDROP :TRY TO DROP THE UNIT 
2042 035564 999$: 


2094 
2095 
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TEST 4: BASIC READ DATA (FORWARD AND REL ;ERSE) SEQ 0170 

2044 34 

2045 : 

re s TEST 4, SUBTEST 3 

2048 VERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE 

2049 sSWAP BYTES (SWB) BIT SET OPERATES PROPERLY. TNE TEST 

2050 + SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 

ooae : THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 

2053 : 

5 | 

2056 oe33e+ BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
035564 104402 “"* TRAP sCSBSUB 

2057 035566 004737 046404 JSR PC, T24RT3 ;SET UP OTHER oe PACKET 

2058 035572 004737 046250 JSR PC, T24REST 7SET COMMAND P. 

44 035576 004737 046342 JSR PC, T24RT2 SET UP OTHER CCPSAND PACKET 

2061 J AAAAAAAAAERERARERAERAERERAEEAAAAERARAARAREEERARARRARARERERAERAREAARERERE 

2062 3 

<6? ; ISSUE CONTROLLER "’SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 

2065 SReReReeeeeeeeeeeeeeeeeeereeencaneneneeneeeeenneeeeeeneeeeeeeeenene 

2066 

2067 035602 737 016064 JSR PC, SOF INIT 300 et ak A CONTROLLER 

2068 035606 103407 BCS 20$ 28R IF INI S$ OK 

2069 035610 005237 002212 INC FATFLG w= 

2073 035614 010001 v RO,R1 ‘ CONTENTS OF TSSR REGISTER 

2074 035616 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
035616 104455 TRAP CSERDF 

35620 00064 -WORD 416 

0356.2 00365 «WORD SFIERR 
035624 012124 «WORD SFIMSG 

2075 035626 20$: 

2076 035626 013737 002172 043610 MOV UNITN, T24D0SW sSET DRIVE NUMBER IN PACKET 

soe 035634 012704 043570 MOV #T24PACKET, RS ; SUBROUTINE NEEDS PACKET ADDRESS 

2079 J ARAAAARAAAAAARAAAAARAAEEARAAAAARARARAERARAAEEERERAEERERAAREREERAEEREEEEE 

2080 s 

vd sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

2083 Seeeeneeeeeeeeeeneeeeenereneeenneneeeeneneeeaneeeeneteneeeneseeeeee 

2084 

2085 035640 004737 010752 JSR PC,WRTICHR ; ISSUE WRITE CHARACTERISTICS 

2086 035644 103407 BCS 24$ :BR. IF COMMAND ISSUED Ok 

2087 035646 005237 002212 INC FATFLG COUNT 

2091 035652 010001 MOV RO,R1 + SAVE CONTENTS OF TSSR 

2092 035654 ERRHRD ERRNO, WRTMSG, SF IMSG WRITE CHARACTERISTISC verge 
035654 104456 CSERHRD 
035656 000641 . ORD 417 
035660 005054 -WORD WRTMSG 
035662 012124 ‘ D SFIMSG 

2093 035664 248: CKLOOP ;LOOP IF SELECTED 
035664 104406 TRAP CSCLP1 


FERRARA AAAAAAAAAAAEREAAAAAAAAAAAAREAEAEREAERARERERARAAAREAREREEERE EES 


mine ng 
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TEST 4: BASIC READ DATA (FORWARD AND REVERS SEQ 0171 

2096 3 

iad ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

2099 SReAReeeeeneteeeneeeeeeeeeeneneeAneneeeneeneeeneneeneeneeeeeteeeeee 

2100 

2101 035666 004737 011104 JSR PC REWIND ZCALL TAPE REWIND COMMAND 

2102 035672 103407 BCS 30$ [BR, IF NO PROBLEM 

2103 035674 01000 MOV RO,R1 ZSAVE TSSR 

2104 035676 00S037 002212 INC FATFLG : COUNT 

2108 035702 ERRHRD ERRNO, T24RWN,PKTSSR :REWIND NOT ACCEPTED 
035702 104456 TRAP  CSERHRD 
035704 000642 -WORD 418 
035706 045046 .WORD  T24RWN 
035710 012136 .WORD PKTSSR 

2109 035712 30$:  CKLOOP ZLOOP IF SELECTED 

2110 035712 104406 TRAP CSCLP1 

2111 J AAAAAAAAEAAAAEERARAREEEEEEREAAEAARARERARERREREERREREERAREREEEERREEE 

2112 3 

q113 ZREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

2115 PT TITITIILLLILILE LETT L ELE T TTT TTT TTT 

2116 

2117 035714 013701 043620 MOV T24BFR+6,R1 :PICK UP XSTO 

2118 035720 010102 MOV R1,R2 SET we EXPECTED 

2119 035722 052702 000002 BIS #B1T1,R2 :SET BOT BIT IN EXPECTED 

2120 035726 020102 CMP R1,R2 [DOES EXP = REC'D 

2121 035730 001406 BEQ 408 7BR, IF EQUAL (OK) 

2122 035732 005237 002212 INC TFLG [BUMP COUNT 

2126 035736 ERRHRD ERRNO T2GB0T -EXPREC ;TAPE NOT AT BOT AFTER REWIND 
035736 104456 TRAP CSERHRD 
035740 000643 -WORD 419 
035742 044563 .WORD T24B0T 
035744 015564 «WORD EXPREC 

2127 035746 40$:  CKLOOP :LOOP IF SELECTED 
035746 104406 TRAP C$CLP1 

2128 035750 012703 000400 MOV #2546. R3 ZRECORD SIZE 

2129 035754 013737 003114 043712 MOV FREE, T24RB ZSTARTING WRITE BUFFER ADDRESS 

2131 J ARAAAAAAAAAAAAI RARER AEEEEEAAERAREERAEAREEERERRERERREREREREREREREEEE 

2132 ; 

2133 jWRITE DATA,ACK,SWB,CVC=1 COMMAND 

2135 SROReReRReeeEReReRAReEeeeeeeeeAneeeneeeneneneeneneeeneeeereeeeeeees 

2136 

2137 035762 012737 150005 043710 MOV #150005, T24PK3 sWRITE DATA, ACK,SWB,CVC=1 COMMAND 

2138 035770 012704 043710 oad MOV #T24PK3.R ZSET UP R4 WITH PACKET ADDRESS 

2140 035774 010300 "ov R3,RO SET PATTERN IN CORRECT pREGISTER 

2141 035776 004737 017512 JSR PC, FILLMEM FILL MEMORY WITH RECORD SIZE 

2142 036002 010337 043716 MOV R3,124S2 SET UP RECORD SIZE IN PACKET 

2143 036006 010465 00 MOV R4, TSDB(RS) : ISSUE COMMAND 

2144 036012 004737 016340 JSR PC WAITF :WAIT FOR SSR TO SET 

2145 036016 016501 000002 MOV TSSR(RS),R1 *GET TSSR CONTENTS 

2146 036022 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 

2147 036026 020102 CMP R1_R2 SARE THEY EQUAL 

2148 036030 75$ 7BR, IF OK 
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J AAAAAAAAAAAAAAAAAAAAAAEEAAAAARARAEAREREEAAREAERARERAEAERAAARERAEAEREREEE 


TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 

2149 036032 0065237 002212 INC FATFLG :BUMP COUNT 

2153 036036 ERRHRD ERRNO,WRTERR,PKTSSR ZTSSR INCORRECT AFTER WRITE DATA 
036036 104456 TRAP CSERHRD 
036040 4 «WORD 420 
036042 005111 “WORD WRTERR 
036044 0121 “WORD PKTSSR 

2154 036046 75$:  CKLOOP ;LOOP IF SELECTED 
036046 1044 TRAP —- C$CLP1 

2155 036050 00572 TST (R3)+ ;BUMP RECORD SIZE 

2156 036052 022703 000414 CMP #268. ,R3 SEND OF RECORD YET 

2157 036056 001346 E 65$ 7BR, IF MORE RECORDS TO WRITE 

2158 036060 80$:  CKLOOP SLOOP IF SELECTED 
036060 104406 TRAP  C$CLP1 

31 33 036062 120$: 

2161 FERRARA AAAAAAAEAAAERAARAEEEAEAARAAEAARERAEERRRERERAEERAREERAERREREEEEE 

2162 3 

3165 TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

2165 {Ree eeReReReReeeeeeeeteneeeeceeneeneneneneneeeneeteneeeeneeeerene 

2166 

2167 036062 004737 011104 JSR PC REWIND CALL TAPE REWIND COMMAND 

2168 036066 *03c07 BCS 130$ IF NO PROBLEM 

2169 036070 010001 MOV RO,R1 CAVE TSSR 

2170 036072 005237 002212 INC FATFLG ‘BUMP COUNT 

2174 036076 ERRHRD ERRNO, T24RWN,EXPREC SREWIND NOT ACCEPTED 
036076 104456 TRAP  CSERHRD 
036100 000645 «WORD 421 
036102 045046 “WORD T24RWN 
036104 015564 .WORD EXPREC 

2175 036106 130$:  CKLOOP :LOOP IF SELECTED 

mate 036106 104406 TRAP _ C$CLP1 

2177 FARA AAAAAEAAAAAEEARARARAERERERAERARAEAAAAREEEEEAEREREREREREREKEREERERREEE 

2178 ; 

e128 ZREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 

2181 SRRARReeReRReReReReReeeeeeeeeeeeneeeennneeeneeeeeeneeeeneeeeeneeene 

2182 

2183 036110 013701 043620 MOV T24BER+6, R1 :PICK UP XSTO 

2184 036114 010102 MOV R1,R2 :SET UP EXPECTED 

2185 036116 052702 000002 BIS #B1T1,R2 :SET BOT BIT IN EXPECTED 

2186 036122 020102 CMP R1,R2- :DOES EXP = REC'D 

2187 036124 0014 BEQ 140$ :BR. IF EQUAL (OK) 

2188 036126 005237 002212 iNC FATFLG OUNT 

2192 036132 ERRHRD ERRNO, T24B0T,EXPREC [TAPE NOT AT BOT AFTER REWIND 
036132 104456 CSERHRD 
036134 6 ono 422 
036136 044563 “WORD T24B0T 
036140 015564 -WORD EXPREC 

2193 036142 140$:  CKLOOP ;LOOP IF SELECTED 
0 104406 TRAP — CSCLP1 

2194 036144 012703 000400 MOV #256. R3 ZRECORD SIZE 

2195 036 013737 003114 043712 MOV FREE. T24RB ZSTARTING READ BUFFER ADDRESS 


SEQ 0172 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0173 
2199 ;READ DATA, IE,ACK,SWB COMMAND 
2201 TIITITITILILILILI LETTE LETTE LETT TTT TT TTT TTT TTT TTT Te 
220, 
2203 036156 012737 110001 043710 MOV #110001, T24PK3 ZREAD DATA, IE,ACK,SW8 COMMAND 
036 012704 043710 165$: MOV #T26PK3,RG <SET UP R4 WITH PACKET ADDRESS 
2205 036170 010337 043716 MOV R3,124S :SET UP RECORD SIZE IN PACKET 
2206 036174 010465 000000 MOV R4. TSDB(RS) : ISSUE COMMAND 
2207 036200 004737 016340 JSR PC WAITF ZWAIT FOR SSR TO SET 
2208 036204 016501 000002 MOV TSSR(R5) RI :GET TSSR CONTENTS 
36210 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 
2210 036214 020102 CMP R1,R2 TARE THEY EQUAL 
2211 036216 001406 BEQ 170$ 78R, IF OK 
2212 036220 005237 002212 INC FATFLG :BUMP COUNT 
6 036224 ERRHRD ERRNO,RDERR,PKTSSR ZTSSR INCORRECT AFTER READ DATA 
036224 104456 TRAP CSERHRD 
036226 000647 .WORD 423 
036230 005204 -WORD  RDERR 
036232 012136 -WORD  PKTSSR 
2217 036234 170$:  CKLOOP :LOOP IF SELECTED 
036234 104406 TRAP — CSCLP1 
2218 036236 013702 003114 MOV FREE ,R2 :GET BUFFER ADDRESS 
2219 036242 010304 MOV R3,RG SCURRENT RECORD SIZE 
2220 036244 162704 000400 SUB #256. RG ZFIRST LOCATION IN BUFFER 
2221 036250 060204 173$: ADD R2,R4 [GET LOCATION IN BUFFER (ADDRESS) 
2222 036252 021403 CMP (R4) ,R3 ZCHECK DATA READ (R3=DATA ALSO) 
2223 036254 091410 BEQ 180$ :BR. IF ALL IS WELL 
2224 036256 011401 MOV (R4),R1 RECD DATA 
2225 036260 010302 MOV R3,R2 :EXPECTED DATA 
2226 036262 005237 002212 INC FATFLG 
2230 036266 ERRHRD ERRNO, T24DTA,EXPREC [DATA READ or WRITTEN 
036266 104456 TRAP  CSERHRD 
036270 000650 «WORD 424 
036272 044630 “WORD T24DTA 
036274 015564 -WORD EXPREC 
2231 036276 180$:  CKLOOP :LOOP IF SELECTED 
036276 104406 TRAP — CSCLP1 
2232 036300 005724 TST (R4)+ :BUMP TO NEXT LOCATION 
2233 036302 160204 SUB R2,R4 ZSET SIZE TO CORRECT VALUE 
2234 036304 020403 CMP R4.R3 END OF RECORD YET 
2235 036306 001360 BNE 173$ BR, IF NOT AT END OF RECORD 
2236 036310 005723 TST (R3)+ “BUMP RECORD SIZE 
2237 036312 022703 000412 CMP #266. .R3 [END OF RECORD YET 
2238 036316 001322 BNE 165$ [BR, IF MORE RECORDS TO WRITE 
2239 036320 190$:  CKLOOP SLOOP IF SELECTED 
104406 TRAP — CSCLP1 
2240 036322 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
036322 L10055: 
0 104403 CSESUB 
2241 036324 023727 002212 000017 CMP FATFLG #15. z1S ERROR COUNT Mt Mos 
2242 036332 103402 BLO 999$ 7BR, IF LESS THAN 25 


2243 036334 004737 017272 JSR PC ,,CKDROP zTRY TO DROP THE UNIT 
2244 036340 999$: 
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TSV7 = HARDWARE TESTS 1-8 MACRO M1113 “ieeettaen 09:19 PAGE $8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0174 
| 2246 3@ 
2267 3 
sseé s TEST 4, SUBTEST 4 
2250 : VERIFIES THAT A READ FORWARD COMMAND rt el ° RECORD 
2251 GER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
2252 : STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 
2253 s(RLL) BIT SET. 
2254 3 
2255 $ 
2258 036340 BGNSUB {>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

036340 14.4: 

036340 104402 C$8SUB N 
2259 036342 004737 6404 JSR PC, T24RT3 sSET UP OTHER COMMAND PACKET ; 
22 36346 004737 046250 JSR PC, T24REST sSET COMMAND PACKET 
ssel 036352 004737 046342 JSR PC, T24RT2 ;SET UP OTHER COMMAND PACKET 7 
2263 J AAAAAAAAAAAAAAAAAAAAREAEAEEEAERAAAERAEEREREREAEEEAAEEREEREEEEREEEEE 
22 3 
see : ISSUE CONTROLLER ‘’SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
at SReeeeeeneterereraneenereeeneneeeeeenaneneeeeneneneneneneneeeeeeees 
22 
2269 036356 737 016064 JSR PC, SOFINIT 3:b0 oe ana tok A CONTROLLER 
2270 036362 103407 BCS 20$ ‘BR IF INIT WAS OK 
2271 036 005237 002212 INC FATFLG ;BUMP cout 
2275 036370 10001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
2276 036372 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 

036372 104455 TRAP CSERDOF 

036374 51 eWORD 425 

036376 003650 -WORD SFIERR 

036400 012124 -WORD SFIMSG 
2277 036402 20$: 

2278 036402 013737 002172 043610 MOV UNITN, T240SW sSET DRIVE NUMBER IN PACKET 
$s) 036410 012704 043570 MOV #T24PACKET, RG ; SUBROUTINE NEEDS PACKET ADDRESS 
2281 fF SRAAAAAAAAAAAAAAAARAAERAAEAERARAAARARERAERERERERERAERERERERE seeaeeaeenke 

22 3 

SSez sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

2285  eeeneeenentereeeteeeerereeereeneneeennerenenereneeeeeeneeeeeeeteee 
2286 

2287 036414 004737 010752 JSR PC, WRICHR Z ISSUE WRITE CHARACTERISTICS 

036420 103407 BCS 248 3BR. IF COMMAND ISSUED OK 
2289 036422 005237 002212 INC FATFLG OUNT 

036426 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

036430 ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC valiee 

036430 104456 CSERHRD 

036432 52 TeORD 426 

036434 5054 -WORD WRTMSG 

036436 012124 «WORD SFIMSG 
2295 036440 248: CKLOOP ;LOOP IF SELECTED 
2296 0 104406 TRAP CSCLP1 
2297 J RAAAAAAERAAAAAAAAAARARERAARAAAAEARAARAEEEEREREREREREAREEEREEEEEEREEE 
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4: BASIC READ DATA (FORWARD AND REVERSE) 


Sea 


speninanriny 2 
SoeaKs 

¥ 

al 

oO 

a3e 


~ 
WNWAS Ow Ww 
= = 
= So 
S$ w 
o 


NMohonofononory 
ek ed ed ed ed ed 
CONOU EW 


* 06 
12703 
13737 


~ 

Ww 

w 

ae 
co 
wr 


‘R 
036456 104 
| 





011104 


002212 


043620 
000002 


002212 


001000 
003114 


140005 
043710 


043716 
016340 
000002 
000200 


002212 
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043712 


043710 


TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
2 
J PRAAAAAAAAAEAAAAAARAAAAAAEEAAEAEREREREREAREEAREEREREERERERERAEAEERERE 


30$: 


JSR PC REWIND 


sCALL TAPE REWIND COMMAND 
BCS 30$ IF NO PROBLEM 
eat SAVE TSSR 
TN tC TFLG [BUMP COUNT 
ERRHRD EARND. T24RWN,PKTSSR SREWIND NOT ACCEPTED her 
WORD 
;WORD 
WORD 
CKLOOP :LOOP IF SELECTED 
TRAP 


J AAAAAAAAAAAARAARAAREEAERERAERERARARAEEEEEREREEEREREEREEREEREREEREREE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


° 
fF TARAAAAAAAAAAAEARARAARAREREEAERAAAAAAARARERRERERARREEERREEREREEEKEREE 


40$: 


MOV setae ere. R1 zPICK UP _XSTO 

MOV R1, SET UP EXPECTED 

BIS will. R2 SET BOT BIT IN ahepiiees 

CMP R1,R2- :DOES EXP = REC’ 

BEQ 40$ :BR, IF EQUAL (OK) 

INC FATFLG 

ERRHRD ERRNO, T24B0T ,EXPREC TAPE NOT AT BOT AFTER — 
- WORD 
as 

CKLOOP sLOOP IF SELECTED 
TRAP 

MOV #512. ,R3 zRECORD 


P SIZE 
MOV FREE, T24RB sSTARTING WRITE BUFFER ADDRESS 


J TRAAAAAAAAAAAAEAAARAAERAAEAERAAAREAARERERAEAAEEREREREEEEAREREREEREEE 


[WRITE DATA,ACK,CVC=1 COMMAND 


. 
FERRARA AAAAEAAAAAAAAAARAAEAAAEAAAAEEEEEREREEERERERAERERAAREREREEEREE 


65$: 


MOV #140005, T24PK3 ZWRITE DATA,ACK,CVC=1 COMMAND 

MOV #T24PK3_R [SET UP R4 WITH PACKET ADDRESS 
MOV R3,124S2 ZSET UP RECORD SIZE IN PACKET 

MOV Re. TSDB(RS) [ISSUE COMMAND 

JSR PC. WAITF SWAIT FOR SSR TO SET 

MOV TSSR(RS) RI [GET TSSR CONTENTS 

MOV #SSR,R2 [SET UP EXPECTED 

MP R1,R2 sARE THEY EQUAL 


BEO 75$ BR, IF 


NC FATFLG : COUNT 
ERRHRD ERRNO, WRTERR,PKTSSR zTSSR INCORRECT AFTER WRITE DATA 


CSERHRD 
427 


CSCLP1 


CSERHRD 
428 
T24B0T 
EXPREC 


CSCLP1 


SEQ 0175 


SE 
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fe et 
| te EST 4: BASIC READ DATA (FORWARD AND REVERSE) ££2 0176 
| 036604 104456 TRAP CSERHRD 
036606 000655 «WORD 429 
| 036610 005111 -WORD wWRTERR 
036612 012136 «WORD PKTSSH 
2354 036614 75$: CKLOOP ;LOOP IF SELECTED 
036614 104406 TRAP CS$CLP1 
$32) 036616 120$: 
Stee BOTTI TTT Ti TTT Tir irri iri Piri iti iti iti ii iiiitiititiiitt | 
2358 : 
+344 7 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
See} SReeeeeeeeeneeeneReReeeeeeeneeenenenneeeneeenneeeeneeeneeTeeeeeneee 
2 
2363 036616 bf 28 011104 JSR PC REWIND 2 CALL Mat at ay COMMAND 
2364 036622 103407 BCS 130$ IF NO PROBLEM 
2365 036624 01000 MOV ” SAVE TSSR 
2366 036626 00S037 062212 INC FATFLG BUMP COUNT 
2370 036632 ERRHRD ERRNO, T24RWN,PKTSSR SREWIND NOT ACCEPTED 
036632 104456 TRAP CSERHRD 
036634 56 «WORD 430 
036636 045046 «WORD T24RWN 
036640 012136 -WORD PKTSSR 
2371 036642 130$: CKLOOP ;LOOP IF SELECTED 
2372 036642 104406 TRAP CSCLP1 
$2 FRARAAAAARARARARREREREERREREERRERERAARERERRERERERERRRERRRREEREREREEE 
2374 ’ 
$352 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
$358  ReRNReeeeReeeRAReneAeeneeeenneenneneeeneneeenenereeeneeeeeneeeeee 
2378 
2379 036644 013701 043620 MOV i Agia R1 sPICK UP xSTO 
2380 036650 010102 MOV R1, sSET uP EXPECTED 
2381 036652 052702 000002 BIS win oR2 zSET BOT BIT IN EXPECTED 
2382 036656 020102 CMP R1,R2- :DOES EXP = REC'D 
2383 036660 001406 BEQ 140$ :BR. IF EQUAL (OK) 
2384 036662 005237 002212 INC FATFLG ; 
2388 036666 ERRHRD ERRNO, T24B0T, EXPREC 3; TAPE NOT AT BOT AFTER REWIND 
036666 104456 TRAP CSERHRD 
036670 57 -WORD 431 
036672 044563 «WORD T24B0T 
036674 015564 «WORD EXPREC 
2389 036676 140$: CKLOOP ;LOOP IF SELECTED 
036676 1044 TRAP CSCLP1 
2390 036700 012703 000400 MOV #256. .R3 sRECORD SIZE 
$35) 036704 013737 003114 043712 MOV FREE, T24RB sSTARTING READ BUFFER ADDRESS 
2393 FRRAAAAAAAAAAAAAAAAAAEEAERAREEAAAERERAAAARERERERRERERRERERREREEREEES 
2394 ; 
Stoe READ DATA,ACK,CVC=1 COMMAND 
2397 Seeeeeeeteneneenereeetenereeneeneneneeraneenetenneeeeeeeeeeeeeeeeee 
2398 
2399 036712 012737 140001 043710 MOV #140001, Maat sREAD DATA,ACK,CVC=1 COMMAND 
2400 036720 012704 043710 165$: MOV #T24P PK3.R sSET UP R4 W WITH PACKET ADDRESS 
2401 036724 010337 043716 MOV R3, 1248 "a SET UP RECORD SIZe IN PACKET 


ar eads 
| 
| 
| 
| 


2402 036730 


2608 03675 
2412 036760 
036760 


peel bs 
036764 


036766 
2413 ty he 
03677 


037022 
2431 037024 
2432 Oeroce 


7024 


037024 
2433 037026 
2434 037034 
2435 037036 
2436 037042 
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013701 


000000 © 
016340 
000002 


100204 


002212 


043620 
010000 


002212 


002212 
017272 
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MOV R4, TSDB(RS) 


TSSR(RS),R1 
MOV #SSR!SC'BIT2,R2 
R1,R2 


170$: CKLOOP 


FATFLG 
ERRHRD ERRNO, T24TRL,PKTSSR 


FARRAR AAAAAAAAAERAAAAAEEEEEAEARERARARRAEAEARERRERAERREEREEEERREKEREREEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
fF RAAARAAAAAAAARAARARAERRAEAREAERAARAAAARAAERARERAARAREEREERAEEREREEKERREE 


MOV eens. oR1 


MOV 
BIS #B1T12,R2 
CMP R1,R2 
BEQ 1 abs 
INC TFLG 
ERRHRD ERRNO. T26LON.EXPREC 
180$: 
ENDSUB 
000017 CMP FATFLG,#15. 
BLO 999$ 
JSR PC, CKDROP 
999$: 





SEQ 0177 
3; ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
BR, IF OK 
é COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
«WORD 43 
eWORD T24TRL 
«WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
GET MESSAGE BUFFER 
3SET UP EXPECTED 
:SET THE RLL BIT IN EXPECTED 
ARE THEY EQ 
sBR, IF i (ALL IS WELL) 
;BUMP C 
sTHE RLL BIT WAS NOT — i, xSTO 
CSERHRD 
TeoRD 3 
«WORD T24LON 
«WORD EXPREC 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10056: 


TRAP CSESUB 
21S ERROR COUNT AT 25 
2BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 


1 





2 
2455 037042 
037042 


037042 
2456 037044 
2457 037050 
so38 037054 


2466 037060 
2467 037064 
2468 037066 
2472 037072 
2473 037074 


104402 
004737 


004737 
004737 


50 
012124 


013737 
012704 





TSV7 = HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


046404 
046250 
046342 


016064 
002212 


002172 
043570 


010752 
002212 


J 
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043610 


o@ 


TEST 4, SUBTEST 5 


VERIFIES THAT A READ FORWARD COMMAND READING A RECORD 
sSHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
STATUS ALERT TERMINATION WITH THE RECORD LENGTH SHORT 
(RLS) BITS SET. IT IS VERIFIED THAT THE sale he BYTE 
COUNT <RBPCR) IN THE MESSAGE BUFFER CONTAINS THE 
PROPER NONZERO VALUE (E.G. THE DIFFERENCE BETWEEN 
jun BYTE COUNT AND THE ACTUAL RECORD 


BGNSUB 


JSR PC, T24RT3 
JSR PC, T24REST 
JSR PC, T24RT2 


COMMAND P 


sSET UP OTHER phteer PACKET 
SET UP OTHER COMMAND PACKET 


J AAAAAAAAAAAEAEAAEAARAARAARERAARAARAREARERERERERAREERRERREREREEREREREREE 


ISSUE CONTROLLER ‘SOFT’ INITIALIZE - CARRY BIT CLEAR IF ERROR 


° 
fF AAAAAAAAAAAAAARAREAAAEAEEERAAARARARERERARARAERERAAAEEEREREEEREREEEEEEE 


JSR PC,SOFINIT 
BCS 20$ BR IF INIT WAS OK 
ons FATFLG 


RO,R1 
ERRNO, SF IERR, SF IMSG 


20$: 
MOV UNITN, T24DSW 
MOV #T24PACKET, R4 


:b0 tt ar ON CONTROLLER 


: COUNT 
CONTENTS OF TSSR REGISTER 
zFATAL ERROR TSSR WAS NOT OK 


TRAP 

«WORD 

«WORD 
«WORD 


3SET DRIVE NUMBER IN PACKET 
SUBROUTINE NEEDS PACKET ADDRESS 


FARRAR AAAAAERAERAERAAAEARAAAEAAERAEAEARARAERAEERERERERREEEERREREERERETE 


[WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


° 
J ERAAAAAAAAEAARAAAAAREREREAEAAAAAAERARAREAAEREREEEEEEREERERRARREREEERESE 


JSR PC,WRTCHR 
BCS 24$ :BR. IF 
INC FATFLG 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 


ISSUE WRITE CHARACTERISTICS 
COMMAND ISSUED Ok 


SAVE CONTENTS OF TSSR 
WRITE CHARACTERISTISC varies 


TTORD 
WORD 


y>>>>>>>>>>>> i” nage: >>>>>>>>>>>> 


C$BSUB 


CSERDF 
434 


SFIERR 
SF IMSG 


SEQ 0178 


| TSV7 = HARDWARE TESTS i-8 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0179 
012124 «WORD  SFIMSG 

2492 oer iee 24$:  CKLOOP ;LOOP IF SELECTED 

ane 037142 104406 TRAP  C$CLP1 

2494 FERAAAAAAAAARAAAAAAAEAAEEERAAAAAAAREKRRAEAARERERRAERAREERAEREREREEEEEEE 

2495 $ 

se38 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

2498 PITITITIIIIITITI LILI TTLLI TIL ITT TTT LiT TTT T iT TTT Tit iT Titi 

2499 

2500 037144 004737 011104 JSR PC REWIND ZCALL TAPE REWIND COMMAND 

2501 037150 103407 BCS 308 ‘BR, IF NO PROBLEM 

2502 037152 010001 MOV RO,R1 SSAVE TSSR 

2503 037154 005237 002212 INC FATFLG [BUMP COUNT 

2507 037160 ERRHRD ERRNO, T24RWN,PKTSSR SREWIND NOT ACCEPTED 
037160 104456 TRAP  CSERHRD 
037162 664 «WORD 436 
037164 045046 “WORD T24RWN 
037166 012136 - WORD PKTSSR 

2508 037170 303:  CKLOOP :LOOP IF SELECTED 
037170 104406 TRAP — C$CLP1 

2509 037172 012703 000400 MOV #256. ,R3 :RECORD SIZE 

2510 037176 013737 003114 043712 MOV FREE, T24RB [STARTING WRITE BUFFER ADDRESS 

sole FRRAAAAAAAAAEAAREAAEARAEARERERERERAREERERREERARRERERRAEEREEEREREREREREEE 

251 ; 

2514 [WRITE DATA,ACK,CVC=1 COMMAND 

$216 ITTTITT ITIL LITTLE LLL LTTE TELE T TTT T TTT TTT 

251 

2518 037204 012737 140005 043710 MOV #140005, T24PK3 ZWRITE DATA,ACK,CVC=1 COMMAND 

2519 O37212 012704 043710 oe MOV #T24PK3_R [SET UP R4 WITH PACKET ADDRESS 

2521 037216 010337 043716 "MOV R3, 724827 :SET UP RECORD SIZE IN PACKET 

2522 037222 010465 000000 MOV Ro. 1S087R5) SSUE COMMAND 

2523 037226 737 016340 JSR PC.WAITF “WAIT FOR SSR TO SET 

2524 037232 016501 000002 MOV TSSR(R5) RI [GET TSSR CONTENTS 

2525 037236 012702 000200 MOV #SSR,R2 [SET UP EXPECTED 

2526 037242 020102 CMP R1,R2 TARE THEY EQUAL 

2527 037244 0014 BEQ 75$ 7BR, IF OK 

2528 037246 005237 002212 INC FATFLG [BUMP COUNT 

2532 037252 ERRHRD ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
037252 104456 TRAP  CSERHRD 
037254 «WORD 437 
037256 005111 “WORD WRTERR 
037260 012136 “WORD PKTSSR 

2533 037262 75$:  CKLOOP ;LOOP IF SELECTED 
037262 104406 TRAP — C$CLP1 

2534 037264 1208: 

S336 fF EAAAAAAAAAAAEAAAAAAAERAEAEAAAAAAAARERSHRARAARARARAEAAREREEAEREREEEREEE 

2 $ 

2338 TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

2540 PITITIIIITITITI LITTLE LLL TLL TTT TTT TTT Tee Tee 

2541 

2542 037264 004737 011104 JSR PC,REWIND ZCALL TAPE REWIND COMMAND 


ee 





2543 037270 
2544 037272 
2545 037274 
2549 03 


03 
2550 pecee 


03731 
2551 037312 
S236 037316 


60 
2561 037332 
62 


2591 037426 
7426 

037430 
037432 
037434 

2592 037436 
2593 037436 
2594 037442 


TSV7 = HARDWARE TESTS 1 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


103407 
01000 


013701 


- 
=8 MACRO M1113 25-May-82 09:19 pact $2 
SEQ 0180 | 
BCS 130$ 36R, IF NO PROBLEM 
MOV :SAVE TSSR 
002212 INC FATFLG :BUMP COUNT 
ERRHRD ERRNO, T24RWN,PKTSSR :REWIND NOT ACCEPTED 
TRAP  §CSERHRD 
«WORD 438 
«WORD T24RWN 
.WORD PKTSSR 
130$:  CKLOOP :LOOP IF SELECTED 
TRAP CS$CLP1 
001000 MOV #512. ,R3 ZRECORD SIZE 
003114 043712 MOV FREE, 124RB ZSTARTING READ BUFFER ADDRESS 
FRAAARARAARAAAAAAARARARERARERAARAERARERAEREREEAREEREREERREREREREEEEEE 
gREAD DATA,ACK,CVC=1 COMMAND 
PITTI IIIT TILTT LETTE TELL ETE T TTT TTT TTT TTT TTT TTT 
140001 043710 MOV #140001, T24PK3 zREAD DATA,ACK,CVC=1 COMMAND 
043710 165$: MOV’ #T24PK3,R4 7SET UP R4 WITH PACKET ADDRESS 
043716 MOV R3,724S2 3SET UP RECORD SIZE IN PACKET 
000 MOV R4, TSDB(RS) : ISSUE COMMAND 
016340 JSR PC ,WAITF :WAIT FOR SSR TO SET 
000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 
1002 MOV #SSR'SC!BIT2,R2 :SET UP EXPECTED 
CMP R1,R2 TARE THEY EQUAL 
BEQ 170$ 7BR, IF OK 
002212 INC FATFLG :BUMP COUNT 
ERRHRD ERRNO, T24TRL,EXPREC sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
«WORD 439 
<WORD T24TRL 
-WORD EXPREC 
170$:  CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
2 RAAAAAAAAAAAAARAEAAARAAEEERERERAARAREAREREEARERAREREERAERERAEEEERERKEEE 
ZREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
SReReReeeeneeeeeeneeeeeneeeenenennnneeenaneeeeenreeenneeeeneneeeeee 
043620 MOV T24BER+6, R1 :GET MESSAGE BUFFER 
MOV R1, 3SET UP EXPECTED 
040000 BIS aBitis, R2 SET THE yrs BIT IN EXPECTED 
CMP R1,R2 TARE THEY EQUAL 
BEQ :BR, If EQUAL (ALL IS WELL) 
002212 INC FATFLG [BUMP T 
ERRHRD ERRNO, T24LOP,EXPREC ;THE RLL BIT WAS NOT SET IN XSTO 
TRAP  C$SERHRD 
% 440 
.WORD  T24LOP 
sl -WORD EXPREC 
043616 MOV T24BFR+4,R1 sPICK UP RESIDUAL BYTE COUNTER 
000400 MOV #256. ,R2- sTHIS SHOULD BE THE DIFFERENCE 





| M14 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0181 


4 


595 037446 920102 CMP R1,R2 z1S THE DIFFERENCE CORRECT 
596 037450 001406 BEQ 196$ ‘BR, IF CORRECT 
2597 037452 005237 002212 INC FATFLG : OUNT 
2601 037456 ERRHRD ERRNO, T24PBP,EXPREC *RBPCR NOT CORRECT 
03745 104456 TRAP  CSERHRD 
037460 000671 .WORD 441 
037462 046026 .WORD T24PBP 
037464 015564 .WORD EXPREC 
2602 037466 190$:  CKLOOP ;LOOP IF SELECTED 
037 104406 RAP — C$CLP1 
2603 037470 ENDSUB {>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
037470 L10057: 
037 104403 TRAP C$ESUB 
2604 037. 023727 002212 000017 CMP FATFLG,#15. z1$ ERROR COUNT AT 25 
2605 037500 10340 BLO 999$ 7BR, IF LESS THAN 25 
2606 037502 004737 017272 JSR PC, CKDROP :TRY TO DROP THE UNIT 
2607 037506 999$: 





— 


sone 037520 


037546 
2646 037550 
2647 037550 
o 037556 


66 
2663 037576 
037576 


037600 
037602 


004737 


004737 
1 7 


72 
903650 
012124 


013737 
012704 


004737 


010001 


104456 
000673 
005054 


TSV7 = HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE 


046404 
046250 
046342 


016064 
002212 


002172 
043570 


010752 
002212 


-_——_—_——_ -—_——-——- - 
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sq 


;TEST 4, SUBTEST 6 


;VERIFIES THAT READ REVERSE “ie oikt WITH SWB=0 
OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN 
ITTEN WITH A SERIES OF vest RECORDS VARING IN 
TA CONTENT. THE TAPE IS THEN READ IN REVERSE 


LENGTH AND DA TENT. 
sSEQUENTIALLY AND gg RESULTS 
; TUS, D Lb age C.) VERIFIED. THE BYTE COUNT 


ON 
sEACH RSE COMMAND IS SET TO THE LENGTH OF THE 
4 tt RECORD. SO NO EXCEPTIONAL CONDITIONS SHOULD 


SEQ 0182 


2>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


CSBSUB 
he - 


—_— 
CSERDF 
442 


SFIERR 
SF IMSG 


BGNSUB 
JSR PC, T24RT3 :SET UP OTHER COMMAND PACKET 
JSR PC; T24REST T COMMAND P 
JSR PC T24RT2 :SET UP OTHER COPRAND PACKET 
FRARAAAAEAAAEAREREERAEEREEEEREEEERAEERAERAEAEREREAEAREREERERREEREEKEREEEEEE 
TISSUE CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
PITIITITITITILITITITITI LLL TELL ELLE ELLE LLL TELE E TEC 
JSR PC, SOF INIT :00 INITIALIZE «on CONTROLLER 
BCS 20$ R IF INIT WAS OK 
INC FATFLG 5 COUNT 
MOV RO,R1 [CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR, SF IMSG SFATAL ERROR TSSR WAS NOT T Ok 
TeoRD 
«WORD 
043610 “MoV UNITN, T24DSW ZSET DRIVE NUMBER IN PACKET 
MOV #T24PACKET,R4 SSUBROUTINE NEEDS PACKET ADDRESS 
FRARAAAAEAAEAAAEAAERERERREEEEEEREAARAEERAERAEARAEERARERAEARERAAEEREREEEEREREEE 
[WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
PITITITITITITITI LITTLE LLL ELLE LETTE Eee 
JSR PC ,WRTCHR ZISSUE WRITE CHARACTERISTICS 
BCS 24$ 7BR. IF COMMAND ISSUED Ok 
INC FATFLG COUNT 


SAVE CONTENTS OF TSSR 
[WRITE CHARACTERISTISC one 


- WORD 
- WORD 


MOV RO,R1 
ERRHRD ERRNO, WRTMSG, SF IMSG 


CSERHRD 
WRTMSG 


wy 


81 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE SEQ 0183 

037604 012124 «WORD SFIMSG 

2664 037606 24$: CKLOOP ;LOOP IF SELECTED 

2665 037606 104406 TRAP CSCLP1 

2666 FRAAARAAAAAAAAAARERARARAEAERERARAREHREREREERERERERAERAAREREERREREREE 

2667 : 

sock Zs ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

2670 SRReeReeeeeeeeeenteeeeeereeeeneeeeneeeeeneeenenerenenneeeeneteeeeee 

2671 

2672 037610 004737 011104 JSR PC REWIND CALL “ REWIND COMMAND 

2673 037614 103407 BCS 30$ 78R, IF NO PROBLEM 

2674 037616 010001 MOV axe ; SAVE TSSR 

75 037620 005237 002212 INC FA COUN 

2679 037624 ERRHRD ERRNO. T24RWN,PKTSSR tREWIND NOT ACCEPTED 
037624 104456 TRAP CSERHRD 
037626 74 -WORD 444 
037630 5046 «WORD T24RWN 
037632 012136 «WORD PKTSSR 

2680 037634 30$: CKLOOP ;LOOP IF SELECTED 
0376 104406 TRAP CSCLP1 

2681 037636 012703 000400 MOV #256. .R3 sRECORD SIZE 

2682 037642 013737 003114 043712 MOV FREE, T24RB ZSTARTING WRITE BUFFER ADDRESS 

2684 J ERAAAAAAAAAAEAAAAAAAREREARAEERARRERRARERERERREEEEREREREREREREREEEEE 

2685 3 

cone ;WRITE DATA,ACK,CVC=1 COMMAND 

2688 SReeeeeeneeeeeeeeeentereeeeneeeeeeaneneeeeeenannaneneeeeeneeeeeeeee 

2689 

2690 037650 012737 140005 043710 MOV #140005, T24PK3 sWRITE DATA,ACK,CVC=1 COMMAND 

2691 037656 012704 043710 MOV #1246PK3, RG sSET UP R4 WITH PACKET ADDRESS 

2692 037662 65$: 

2693 037662 010300 MOV R3,RO sSET PATTERN IN ya ois: ee 
037664 737 017512 JSR PC.FILLMEM sFILL MEMORY WITH RECORD SIZE 

2695 037670 010337 3716 MOV R3. T2482 SET UP RECORD SIZE IN Pit 

2696 037674 010465 MOV R4, Aya > as z ISSUE COMMAND 

2697 037700 737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 

2698 037704 016501 MOV TSSR(RS), R1 :GET TSSR CONTENTS 

2699 037710 012702 000200 MOV R2 SET UP EXPECTED 

2700 037714 020102 CMP a 1°R3 SARE THEY EQUAL 

2701 037716 001406 BEC 75$ :BR, 

2702 037720 005237 002212 INC FATFLG pr: COUNT 

2706 037724 ERRHRD ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
037724 104456 TRAP CSERHRD 
037726 7 -WORD 445 
037730 005111 «WORD WRTERR 
037732 012136 -WORD PKTSSR 

2707 037734 75$: CKLOOP ;LOOP IF SELECTED 
0377 104406 TRAP CSCLP1 

2708 037736 005723 TST (R3)+ ;BUMP RECORD SIZE 

2709 037740 022703 000414 CMP #268. .R3 sEND OF RECORD YET 

2710 037744 001346 BNE 65$ :BR, IF MORE RECORDS TO WRITE 

2711 037746 80$: CKLOOP sLOGP IF SELECTED 
037746 104406 TRAP CSCLP1 

2712 037750 005743 TST -(R3) :SET BACK TO 512. 

2713 037752 013737 003114 043712 MOV FREE, T24RB STARTING READ BUFFE? ADDRESS 


C 15 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE SEQ 0184 
714 
gris FARRAR AARAAAAAAAAAERAAAEEREAAAAAAARAREHERAAAARAEEEREEREARERAEREREEE 
2716 3 
ald ZREAD REVERSE DATA,ACK COMMAND 
2719 Ree eeeneeeeneeeneeetereereeeneneneneneaeneeneeneneeeenereeseeeters 
2720 
2721 037760 012737 100401 043710 MOV #100601 -T24PRK3 ZREAD REVERSE DATA,ACK COMMAND 
2722 037766 012704 043710 165$: MOV #T24PK3.R 7SET UP R4 WITH PACKET ADDRESS 
2723 037772 010337 043716 MOV R3,T 1268 3SET UP RECORD SIZE IN PACKET 
2726 037776 010465 MOV R4, TSDB(RS) SSUE COMMAND 
2725 040002 737 016340 JSR PC.WAITF tWAIT FOR SSR TO SET 
2726 040006 016501 000002 MOV TSERCRS), R1 :GET TSSR CONTENTS 
2727 040012 012702 200 MOV #SSR,_R2 ZSET UP EXPECTED 
2728 040016 020102 CMP 1,R2 TARE THEY EQUAL 
040020 0014 BEQ 76$ ‘BR, 
040022 005237 002212 INC FATFLG [BUMP COUNT 
2734 040026 ERRHRD ERRNO, T24WDC,PKTSSR :TSSR INCORRECT AFTER READ DATA 
040026 104456 TRAP  CSERHRD 
040030 000676 «WORD 646 
040032 045376 “WORD T26WDC 
040034 012136 .WORD PKTSSR 
2735 040036 170¢:  CKLOOP :LOOP IF SELECTED 
0400 04406 TRAP = CSCLP1 
2736 040040 013702 003114 MOV FREE,R2 :GET BUFFER ADDRESS 
2737 040044 010304 MOV R3_RG ZCURRENT RECORD SIZE 
04 162704 000400 SUB #256. .R4 ZFIRST LOCATION IN BUFFER 
2739 040052 204 173$: ADD R2,R [SET POINTER TO FRAME (WORD) 
2740 040054 021403 CMP (R4),R3 ZCHECK DATA READ (R3=DATA ALSO) 
2741 040056 001410 BEQ 180$ :BR, IF ALL IS WELL 
2 04 011401 MOV (R4),R1 ZRECD DATA 
2743 040062 010302 MOV ® ZEXPECTED DATA 
04 005237 002212 NC FATFLG T 
2748 040070 ERRHRD ERRNO, T24DTA,EXPREC “DATA READ NOT = WRITTEN 
040070 104456 TRAP  CSERHRD 
040072 77 «WORD 447 
040074 044630 .WORD T24DTA 
040076 015564 -WORD EXPREC 
2749 040100 180$:  CKLOOP :LOOP IF SELECTED 
040100 1044 TRAP = CSCLP1 
2750 040102 005724 TST (R4)+ ;BUMP TO NEXT LOCATION 
2751 040104 160204 SUB R2,R4 2GET RID OF BASE ADDRESS 
040106 020403 CMP R4_R3 SEND OF RECORD YET 
2753 040110 001360 BNE 173$ :BR, IF NOT AT END OF RECORD 
2754 040112 005743 TST -(R3) ZBUMP RECORD SIZE 
2755 040114 022703 000400 CMP #256. .R3 [END OF RECORD YET 
2756 0640120 001322 BNE 165$ 7BR, IF MORE RECORDS TO WRITE 
2757 040122 190$:  CKLOOP ‘LOOP IF SELECTED 
040122 104406 TRAP  CSCLP1 
2758 040124 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
040124 L10060: 
040124 104403 TRAP CSESUB 
2759 040126 023727 002212 000017 CMP FATFLG,#15. 71S ERROR COUNT AT 25 
2760 040134 103402 BLO 999$ 7BR, IF LESS THAN 25 
761 040136 737 017272 JSR PC, CKDROP :TRY TO DROP THE UNIT 


D 15 
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| TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
| 2765 54 
2766 : 
$77 :TEST 4, SUBTEST 7 
2769 ‘VERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE 
2770 [SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 
2771 ZSEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 
772 yTHE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 
277% ; 
sire 
2777 040142 . BGNSUB j>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
040142 14.7: 
040142 104402 TRAP  C$B8SUB 
2778 040144 004737 046404 JSR PC, T24RT3 :SET UP OTHER, COMMAND PACKET 
2779 040150 004737 046250 JSR PC, T2GREST :SET COMMAND PACK 
2780 040154 004737 046342 JSR PC, T24RT2 ZSET UP OTHER CCPAND PACKET 
2782 J RRAAAAAAEAAEREARAREEAEAERERARAERAERARERERARAERAEARERERERERRERERERERERERE 
2783 3 
2786 ZISSUE CONTROLLER “'SOFT'’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
2786 TTT IST TITEL TLELE LETT LETTE TTT TTT 
2787 
2788 040160 004737 016064 JSR PC, SOFINIT 700 INITIALIZE <n CONTROLLER 
2789 040164 103407 BCS 20$ :BR IF INIT WAS OK 
2790 040166 005237 002212 INC FATFLG 7B COUNT ” 
2794 040172 010001 MOV RO,R1 [CONTENTS OF TSSR REGISTER 
2795 040174 ERRDF ERRNO, SFIERR,SFIMSG [FATAL ERROR TSSR WAS NOT OK 
040174 104455 TRAP CSERDF 
040176 000700 «WORD 448 
040200 003650 .WORD S/IERR 
040202 012124 .WORD  SFIMSG 
2796 040204 208: 
2797 040206 013737 002172 043610 MOV UNITN, T24DSW zSET DRIVE NUMBER IN PACKET 
3798 040212 012704 043570 MOV AT24PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
2800 FARRAR AAAAAAAEAAEARAAEEEAEAERERERAAAREAREERARAARARAERERERERAERERERAREREEEE 
2801 3 
2802 SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
2804 SReReeeeeneeeeeeeereneneeeeneeeneeeeneeneeeanereneneeeeneneeeeeere 
2805 
2806 040216 004737 010752 JSR PC ,WRTCHR ZISSUE WRITE CHARACTERISTICS 
2807 040222 103407 BCS 24$ 7BR, IF COMMAND ISSUED OK 
2808 040224 005237 002212 INC FATFLG [BUMP COUNT 
2812 040230 010001 MOV RO,R1 ZSAVE CONTENTS OF TSSR 
2813 040232 ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
040232 104456 TRA CSERHRD 
000701 "WORD 449 
005054 .WORD  WRTMSG 
040240 012124 -WORD  SFIMSG 
2814 040242 24$:  CKLOOP sLOOP !F SELECTED 
040242 104406 TRAP  CSCLP1 
2816 FARRAR AARAAAEAAAAAEEAAAAREAEAAAAAAAERAAAAEAREAEEERERAAEREREEEEERERAEE 





SEQ 0185 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0186 

2817 : 

2818 TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

2820 S ReReeeeeeeneeeeeeneeeeeteeeneeneeeneeneereneeeeneneeteneteeereees 

2821 

2822 040244 004737 011104 JSR PC REWIND CALL TAPE REWIND COMMAND 

2823 040250 103407 acs 30$ 7BR, IF NO PROBLEM 

2824 040252 010001 MOV RO,R1 SAVE TSSh 

2825 040254 005237 002212 INC FATFLG [BUMP COUNT 

2829 040260 ERRHRD ERRNO, T24RWN,PKTSSR SREWIND NOT ACCEPTED 
040260 104456 CSERHRD 
040262 000702 .WORD 450 
040264 045046 “WORD T24RWN 
040266 012136 “WORD PKTSSR 

2830 040270 30$:  CKLOOP ;LOOP IF SELECTED 
040270 104406 TRAP  C$CLP1 

2831 040272 012703 000400 MOV #256. .R3 ZRECORD SIZE 

2832 040276 013737 003114 043712 MOV FREE, T24RB ZSTARTING WRITE BUFFER ADDRESS 

2834 J PAAAAARAARAAAAAAAARARAEAEERAEAAAARAARARARERAAAAERERERAEARARREREREREREEE 

2835 ; 

2836 [WRITE DATA,ACK,CVC=1,SWB COMMAND 

2838 SReeeeeeeeeeeeeeeeeeeeeeeneeeneeeeeeennneneeneeeneneneeeeeeneeeeee 

2839 

2840 040304 012737 150005 043710 MOV #150005, 124PK3 jWRITE DATA,ACK,CVC=1,SWB COMMAND 

2841 940312 012704 043710 i MOV #T24PK3_RG [SET UP R4 WITH PACKET ADDRESS 

2843 040316 010300 MOV R3,RO iSET PATTERN IN CORRECT REGISTER 

2844 040320 004737 017512 JSR PC.FILLMEM :FILL MEMORY WITH RECORD SIZE 

2845 040324 010337 043716 MOV R3.124SZ [SET UP RECORD SIZE IN PACKET 

2846 040330 010465 000000 MOV R4.TSDB(RS) Z ISSUE COMMAND 

2847 040334 004737 016340 JSR PC. WAITF SWAIT FOR SSR TO SET 

2848 040340 016501 000002 MOV TSSR(RS) RI [GET TSSR CONTENTS 

2849 040344 012702 000200 MOV #SSR,R2 7SET UP EXPECTED 

2850 040350 020102 CMP R1,R2 TARE THEY 

2851 040352 001406 BEQ 75$ BR, 

2852 040354 005237 002212 INC FATFLG [BUMP COUNT 

2856 040360 ERRHRD ERRNO,WRTERR,PKTSSR [TSSR INCORRECT AFTER WRITE DATA 
040360 104456 TRAP  CSERHRD 
040362 000703 «WORD 451 
040364 005111 -WORD WRTERR 
040366 012136 <WORD PKTSSR 

2857 040370 75$:  CKLOOP :LOOP IF SELECTED 
040370 104406 TRAP _— CS$CLP1 

2858 040372 005723 TST (R3)+ ZBUMP RECORD SIZE 

2859 040374 022703 000414 CMP #268. .R3 [END OF RECORD YET 

2860 040400 001346 BNE 7BR, IF MORE RECORDS TO WRITE 

2861 040402 80$:  CKLOOP SLOOP IF SELECTED 
040402 104406 TRAP = CS$CLP1 

2862 040404 005743 TST -(R3) ZSET RECORD SIZE BACK TO 51 42. 

2863 040406 013737 003114 043712 MOV FREE, T24RB [STARTING READ BUFFER ADDRESS 

2865 J ARAAAAAAAAAAAAAAAAAAAAAAAAAAAAARARAAAEAAERAAEEAAAAERARAEREREEEEEEE 

2866 $ 

2867 [READ REVERSE DATA.ACK,SWB COMMAND 


2868 ; 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE SEQ 0187 
2869 : fF SRAAAAAAAAAAAAAAAAAAAEAEEAES EHRAERAAARERARAEREREREREREARARAEREREREES : 
2870 
2871 040414 012737 110401 043710 MOV #110401, T24PK3 ZREAD REVERSE DATA, ACK,SWB COMMAND 
2872 040422 012704 043710 165$: MOV #T24PK3.R [SET UP R4 WITH PACKET ADDRESS 
2873 040426 010337 043716 MOV R3,T 1268 ie! UP RECORD SIZE IN PACKET 
2874 040432 010465 000 MOV Ra. TSDB(RS) UE C 
2875 040436 004737 016340 JSR PC: :WAIT FOR SSR TO SET 
2876 040442 016501 000002 MOV TSéRCES), R1 ‘GET TSSR CONTENTS 
2877 040446 012702 2 MOV #SSR_R2 :SET UP EXPECTED 
2878 040452 020102 CMP 1,R2 TARE THEY EQUAL 
2879 040454 001406 BEQ 76$ 7BR, IF OK 
2880 040456 005237 002212 INC FATFLG [BUMP COUNT 
2884 040462 ERRHRD ERRNO, T24WDC,EXPREC [TSSR INCORRECT AFTER READ DATA 

040462 104456 TRAP CSERHRD 
040464 704 -WORD 452 
040466 045376 “WORD T24WDC 
040470 015564 -WORD EXPREC 
2885 040472 170$:  CKLOOP ;LOOP IF SELECTED 
0404 406 TRAP  C$CLP1 
040674 013702 003114 MOV FREE, ie :GET BUFFER ADDRESS 
2887 040500 010304 MOV R3,R ZCURRENT RECORD SIZE 
2888 040502 162704 000400 SUB 4256. RG [FIRST LOCATION IN BUFFER 
9 0405 0204 173$: ADD R2,R4 ZSET POINTER TO FRAME (WORD) 
2890 040510 021403 CMP (R&),R3 [CHECK DATA READ (R3=DATA ALSO) 
1 0405 1410 BEQ 180$° :BR, IF ALL IS WELL 
2892 040514 011401 MOV (R4),R1 SRECD DAT 
2893 040516 010302 MOV R3,R2 EXPECTED. DATA 
2894 040520 005237 002212 INC FATFLG COUNT 
2898 040524 ERRHRD ERRNO, T24DTA, EXPREC “DATA READ NOT = WRITTEN 
040524 104456 TRAP CSERHRD 
040526 705 .WORD 453 
040530 044630 “WORD T24DTA 
040532 015564 -WORD EXPREC 
2899 040534 180$:  CKLOOP ;LOOP IF SELECTED 
040534 104406 CSCLP1 
040536 005724 TST (R4)+ ;BUMP TO NEXT LOCATION 
2901 040540 160204 SUB R2,R4 [GET RID OF BASE ADDRESS 
2902 040542 020403 CMP R4_R3 [END OF RECORD Y YET 
2903 040544 001360 BNE 173$ :8R, IF NOT AT END OF RECORD 
040546 005743 TST -(R3) [BUMP RECO ORD SIZE 
2905 040550 022703 000400 CMP #256. .R3 [END OF RECORD YET 
040554 001322 BNE 165$ 7BR, IF MORE RECORDS TO WRITE 
2907 040556 190$:  CKLOOP SLOOP IF SELECTED 
040556 104406 TRAP  C$CLP1 
2908 040560 ENDSUB >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
0405 L10061: 
040560 104403 TRAP CSESUB 
2909 040562 023727 002212 000017 CMP FATFLG,#15. z1S ERROR COUNT AT 25 
2910 040570 103402 BLO 999$ :BR. IF LESS THAN 25 
2911 040572 73? 017272 JSR PC, CKDROP [TRY TO DROP THE UNIT 
2912 040576 999$: 


ee 
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2914 


SEQ 0188 


ey 
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2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2926 
2925 
2926 
2927 
2928 040576 
040576 
040576 104402 
2929 040600 004737 
29 0604 004737 
2931 040610 004737 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 040614 0047 
2940 040620 103407 
2941 040622 005237 
040626 010001 
2946 040630 
040630 104455 
040632 7 
040634 003650 
040636 012124 
2947 040640 


2948 040640 013737 
3044 040646 012704 


2958 040656 103407 
59 040660 


4 
040074 012124 
040676 104406 





016064 
002212 


002172 
043570 


010752 
002212 
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3+ 
;TEST 4, SUBTEST 8 
: VERIFIES Bey A READ REVERSE COMMAND READING A RECORD 
;LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
: STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 
2 (RLL) BIT SET. 
BGNSUB >>>>>>>>>>>> Se >>>>>>>>>>>> 
"TRAP ss C$BSUB 
JSR PC, T24RT3 :SET UP OTHER COMMAND PACKET 
JSR PC, T24REST 3SET COMMAND PACKET 
JSR PC, T24RT2 SET UP OTHER COMMAND PACKET 
FERRARA AAARAEAAAAAERAEAREREEERERERARARARERERAARERERRAEAEEERERREREREREEE 
ISSUE CONTROLLER ‘’SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
+ eeeReeeeeReeeereeneeeeeetenenteneneneeenentenennneenenereeneeerene 
JSR PC, SOF INIT :D0 INITIALIZE ON CONTROLLER 
BCS 20$ 3BR IF INIT WAS OK 
INC FATFLG 3 COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERRDF  ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
eWORD 454 
-WORD SFIERR 
-WORD SFIMSG 


043610 


20$: 


MOV UNITN, T24DSW 


3SET DRIVE NUMBER IN PACKET 
MOV PI2GPACKET: R4 


s SUBROUTINE NEEDS PACKET ADDRESS 


FAAAAAAAAARAARERAAAERAERERERERARAERAAERAREEARERAEEERAAEERREREERRERERERE 


WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


° 
J RRAAAAAAAAAAAAERARAREREEAERAERERARAERERAAERARAREREREREREREREEEEEEEEEE 


24$: 


JSR PC,WRTCHR TISSUE WRITE CHARACTERISTICS 

BCS 24$ :BR. IF COMMAND ISSUED Ok 

INC FATFLG OUNT 

MOV RO,R1 [SAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SF IMSG [WRITE CHARACTERISTISC FAILED 

CSERHRD 

TeORD 55 
“WORD  WRTMSG 
“WORD  SFIMSG 

CKLOOP :LOOP IF SELECTED 


TRAP CSCLP1 


J RRAAAAAAEAAAEAAAAAAEAARAAAERAERAAAAAAAAAAAEAAEEAAEREREREREREREREREEEEEEE 


SEQ 0189 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0190 

2969 TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

2971 SReRReRAeeeeeeeneeReeeeeeeeeneneneeneeeeneeeneeneneneeeeneeeetene 

2972 

2973 040700 004737 011104 JSR PC,REWIND ZCALL TAPE REWIND COMMAND 

74 040704 004737 016426 JSR PC. CHKTSSR ZSEE HOW TSSR IS 

2975 040710 103407 BCS 308 76R, IF NO PROBLEM 

2976 040712 010001 MOV PO,R1 SSAVE TSSR 

2977 040714 005237 002212 INC FATFLG : COUNT 

2981 040720 ERRHRD ERRNO, T24RWN,PKTSSR [REWIND NOT ACCEPTED 
040720 104456 TRAP  CSERHRD 
040722 000710 .WORD 456 
040724 045046 “WORD  T24RWN 
040726 012136 <WORD PKTSSR 

2982 040730 30$:  CKLOOP ZLOOP IF SELECTED | 
040730 104406 TRAP _— CS$CLP1 

2983 040732 012703 001000 MOV #512. ,R3 :RECORD SIZE 

2984 040736 013737 003114 043712 MOV FREE, T24R8 ZSTARTING WRITE BUFFER ADDRESS 

2986 J RARAAAAAAAEAAERAARARARAEEEERERARAEAARARERERERERERRARERARAEREEEREEEE 

2987 : 

2988 [WRITE DATA,ACK,CVC=1 COMMAND 

2990 S RRRAReeRARERERRARRHEd A HeteERAReeeAneReeAeeneeeneneeeenereeneneeeer 

2991 

2992 040744 012737 140005 043710 MOV #140005, T24PK3 ZWRITE DATA,ACK,CVC=1 COMMAND 

2993 040752 012704 042710 MOV #T24PK3.R [SET UP R4 WITH PACKET ADDRESS 

2994 040756 65$: 

2995 040756 010337 043716 MOV R3,724S2 3SET UP RECORD SIZE IN PACKET 

2996 040762 010465 000000 MOV = Ré. TSDB(RS) S ISSUE COMMAND 

2997 040766 004737 016340 JSR PC.WAITF :WAIT FOR SSR TO SET 

2998 040772 016501 000002 MOV TSSR(RS) RI [GET TSSR CONTENTS 

2999 040776 012702 000200 MOV #SSR,R2 ZSET UP EXPECTED 

3000 041002 020102 CMP R1,R2 TARE THEY EQUAL 

3001 041004 001406 BEQ 75$ 7BR, IF OK 

3002 041006 005237 002212 INC FATFLG [BUMP COUNT 

3006 041012 ERRHRD ERRNO,WRTERR,PKTSSR [TSSR INCORRECT AFTER WRITE DATA 
041012 104456 TRAP  CSERHRD 
041014 0007 . 457 
041016 005111 “WORD WRTERR 
041020 012136 : -WORD PKTSSR 

3007 041022 75$:  CKLOOP :LOOP IF SELECTED 
041022 104406 TRAP _— C$CLP1 

3008 041024 012703 000400 MOV #256. ,R3 :SIZE OF RECORD 

3009 041030 013737 003114 043712 MOV FREE. T24RB ZSTARTING READ BUFFER ADDRESS 

3011 J ARAAAAAAAAAAAAAEAAEAAEAERERAAARERERERAERERARERERERERREEREREREEEEEE 

3012 5 

3013 [READ DATA,ACK COMMAND 

3015 SeeReeeeeeeneeeeeneeeeeeeeeeeeneneeeneeeeeneneeeeneeeeneeeeneeeees > 2 

3016 

3017 041036 012737 100401 043710 MOV #100401, T24PK3 ZREAD DATA,ACK COMMAND 

3018 041044 012704 043710 165$: MOV #T24PK3_RG :SET UP R4 WITH PACKET ADDRESS 

3019 041050 010337 043716 MOV R3,17245 ZSET UP RECORD SIZE IN PACKET 

3020 041054 010465 000000 MOV R4.TSDB(RS) TISSUE COMMAND 
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| TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0191 
21 041060 004737 016340 JSR PC,WAITF ZWAIT FOR SSR TO SET 

&: 041064 016501 000002 MOV TSSR(RS) RI :GET TSSR CONTENTS 

3023 041070 012702 100204 MOV #SSR'SC'BIT2,R2 :SET UP EXPECTED 

3024 041074 020102 CMP R1,R2 TARE THEY EQUAL 

3025 041076 001406 BEQ 170$ 7BR, IF OK 

3026 041100 005237 002212 INC FATFLG [BUMP COUNT 

3030 041104 ERRHRD ERRNO, T24TRL,EXPREC ZTSSR INCORRECT AFTER READ DATA 
041104 104456 TRAP  CSERHRD 
041106 712 .WORD 458 
041110 046114 “WORD T24TRL 
041112 015564 : .WORD EXPREC 

3031 041114 170$:  CKLOOP ;LOOP IF SELECTED 

oe 041114 104406 TRAP  C$CLP1 

3033 J AAAAAAAAARAAERAAAAAAAEREREERERAEAEREREREERERARERAEREREEAERREEREKEREEE 

3034 3 

3035 ZREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 

3037 +S ReRRRRRRRRERERRRERREAEeEReeeeeReeeeeeneeeneneneeeneteeeeneeeneee 

3038 

3039 041116 013701 043620 MOV T24BFR+6,R1 3GET MESSAGE BUFFER (XSTO) 

3040 041122 010102 MOV JR ZSET UP EXPECTED 

3041 041124 052702 010000 BIS #B1T12,R2 ZSET THE RLL BIT IN EXPECTED 

3042 041130 020102 CMP R1,R2 TARE THEY EQUAL 

3043 041132 001406 BEQ 180$ ZBR, IF EQUAL (ALL IS WELL) 

3044 041134 005237 002212 INC FATFLG : 

3048 041140 ERRHRD ERRNO, T24LON,EXPREC :THE RLL BIT WAS NOT SET IN XSTO 
041140 104456 TRAP CSERHRD 
041142 000713 .WORD 459 
041144 045662 “WORD T24LON 
041146 015564 -WORD EXPREC 

3049 041150 180$:  CKLOOP 
041150 104406 TRAP  C$CLP1 

3050 041152 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
041152 L10062: 

041152 104403 TRAP CSESUB 

3051 041154 023727 002212 000017 CMP FATFLG,#15. z1S ERROR COUNT AT 25 

3052 041162 103402 BLO 999$ :BR, IF LESS THAN 25 

3053 041164 004737 017272 JSR PC, CKDROP :TRY TO DROP THE UNIT 

3054 041170 999$: 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0192 

3056 3¢ 

3057 3 

25 sTEST 4, SUBTEST 9 

3060 ‘VERIFIES THAT A READ REVERSE COMMAND SPECIFYING A DATA 

3061 ‘BUFFER STARTING IN NONEXISTANT MEMORY — WITH 

3006 ;THE PROPER ERROR STATUS WITHOUT MOVING TAPE 

306 3 RARAAAAAAAAAAARAAARETARARARAARAARARARAARERARAEAAREEREREREREERERREEEREEEE 

soee $ CAUTION 

3066 : The LSI BUS drivers for all available address lines(16-21) 

3067 ; ore only checked when running on a 11/238 system with more than 

3068 . 128K words of memory! 

3069 3 RAERAAAAAARARAAARAEAARAAARAAARAAARAARAAARARAARERAEERAERRAAAEAARREARREREEREEEE 

3070 Io 

3071 

3072 041170 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
041170 14.9: 
041170 104402 TRAP C$8SUB 

3073 041172 005737 003126 TST NXMFLG 3D0 WE HAVE IT? 

3074 041176 001002 BNE 10$ [BR, IF ENOUGH 

3075 041200 000137 041566 JMP 180$ *SKIP a TEST IF NOT 

3076 041204 004737 046404 10$: JSR PC, T24RT3 SET UP 0 tie all A th PACKET 

3077 041210 004737 046250 JSR PC, T24REST :SET COMMAND P 

so 041214 004737 046342 JSR PC, T24RT2 SET UP OTHER COMAAND PACKET 

3080 J ARAAAAAAAAARARAAAERAERARERERERARAAREERAARARERARRERERARERERAERREEREREKE 

3081 3 

sont zs ISSUE CONTROLLER “‘SOFT'’ INITIALIZE = CARRY BIT CLEAR IF ERROR 

toes SeReeeReeeReeeeReeeeeeeeeeeeeneneeeeeteenneeaneaneneeneeeneeeeneens 

5 

3086 041220 004737 016064 JSR PC, SOF INIT :D0 INITIALIZE ON CON;ROLLER 

3087 041224 103407 BCS 20$ BR IF INIT WAS OK 

3088 041226 005237 002212 INC FATFLG ;BUMP COUNT 

3092 041232 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

3093 041234 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
041234 104455 TRAP CSERDF 
041236 006714 -WORD 460 
041240 005650 -WORD SFIERR 
041242 012124 -WORD SFIMSG 

3094 041244 20S: 

3095 041244 013737 002172 043610 MOV UNITN, T24DSW sSET DRIVE NUMBER IN PACKET 

4] 041252 012704 043570 MOV STDOPACKET: RG ; SUBROUTINE NEEDS PACKET ADDRESS 

3098 FAARAAAAAAAAAAAARAAAAAARAERAAEAAARAAAAAARAERASRERERERERRERAEERRERERREE 

3099 $ 

54 sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR> 

3102 SRReReeeeeeeneeeeeeeeeeeerenerenneeeeeeneeeneneeneeeeneeeeeeneeener 

3103 

3104 041256 004737 010752 JSR PC,WRICHR ISSUE WRITE CHARACTERISTICS 

3105 041262 103407 BCS 24$ 7BR, IF COMMAND ISSUED OK 

3106 ths a 005237 002212 INC FATFLG ‘BUMP COUNT 

3110 041270 616001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

3111 041272 ERRHRD ERRNO,WRIMSG,SFIMSG SWRITE CHARACTERISTISC by 
041272 104456 * TRAP CSERHRD 


' 
' 


041274 
041276 
041300 

3112 041302 
041302 

3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 041304 

3121 041310 

3122 041314 

3123 041320 

3124 041322 

3125 041324 

3129 041330 
041330 
041332 
041334 
041336 

3130 041340 
041340 

3131 041342 

3132 041346 


Ww 
SEERA 


RERREERERRRRRELRR ERE 


RRR S 
F td 
ao 


WWAANAI AW AAAW AAA NWWw 
tt ss ss a 9 2 ss HS GH 
MERROW 

Pe at at pt at et et pt et el”, 1 | 


WWWNRNNN | | Soo NN 


005054 
012124 
104406 


012737 
012704 


010337 
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000400 
003114 


140005 
043710 


043716 
000 


000200 


002212 


000400 
003130 
003132 
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043712 


043710 


043712 
043714 


.WORD 461 
“WORD WRTMSG 
.WORD SFIMSG 
24$:  CKLOOP :LOOP IF SELECTED 
TRAP C$CLP1 
FARRAR AAAAAAAARAAAAAEAEEAAAEARAERAAAARRARERAAEARERERAREEAEEREERERREREE 
SISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
TTTIITTILELILILELELEL TTT TELL TTT TTT TTT TTT TTT TTT TTT 
JSR PC, INVERT ZINVERT THE EXTENDED FEATURES SWITCH 
JSR PC REWIND ZCALL TAPE REWIND COMMAND 
JSR PC. CHKTSSR 7SEE HOW IS 
BCS 30$ 7BR, IF NO PROBLEM 
MOV ‘ SSAVE TSSR 
INC FATFLG [BUMP COUNT 
ERRHRD ERRNO, T24RWN,PKTSSR SREWIND NOT ACCEPTED 
TRAP  CSERHRD 
«WORD 462 
“WORD T24RWN 
<WORD PKTSSR 
30$:  CKLOOP :LOOP IF SELECTED 
TRAP  CSCLP1 
MOV #256. .R3 :RECORD SIZE 
MOV FREE, T24RB ZSTARTING WRITE BUFFER ADDRESS 
FERRARA AAAAERERERERARRAERERERRAARERAAREREEREREREERERAEREERRAKRKREREEEREEE 
WRITE DATA,ACK,CVC=1 COMMAND 
PITTI ITIIILITTILEL ELE TELL LELT TTT T TTT TTT TTT TTT 
MOV #140005, T24PK3 jWRITE DATA,ACK,CVC=1 COMMAND 
ih MOV #T24PK3_RG SSET UP R4 WITH PACKET ADDRESS 
MOV R3, 72482 zSET UP RECORD SIZE IN PACKET 
MOV R4.TSDB(RS) TISSUE C 
JSR “WA SWAIT FOR SSR TO SET 
MOV TSSR(RS) RI [GET TSSR CONTENTS 
MOV #SSR,R2 7SET UP EXPECTED 
CMP 1,R2 TARE THEY EQUAL 
BEQ 5$ 7BR, IF OK 
INC FATFLG ‘BUMP COUNT 
ERRHRD ERRNO,WRTERR,PKTSSR [TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
«WORD 463 
“WORD WRTERR 
“WORD PKTSSR 
75$:  CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 
MOV #256. ,R3 ZRECORD SIZE 
MOV NXMLO, T24RB ZSTARTING READ BUFFER ADDRESS 
MOV NXMHI . T24RB+2 3SET ADDRESS BITS. 16-17 


PF AAAAAAAAAAAAAAAAEAAAAARALAERARAAAAAEAAEAERRERERARERARAHEEREEREREEEEE 





SEQ 0193 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0194 

3161 3READ DATA,ACK COMMAND 

s108 ITTISTIIILITILILE LILLE ETT LIT TTT TTT TTT TTT TTT TTT TTT TTT 

3164 

3165 041454 012737 100001 043710 MOV #100001, T24PK3 :READ DATA,ACK COMMAND 

3166 041462 012704 043710 165$: MOV #T246PK3,RG ZSET UP R4 WITH PACKET ADDRESS 

3167 041466 010337 043716 MOV R3,7245 3SET UP RECORD SIZE IN PACKET 

3168 041472 010465 000000 MOV R4, TSDB(RS) Z ISSUE COMMAND 

3169 041476 004737 016340 JSR PC. WAITF ‘WAIT FOR SSR TO SET 

3170 041502 016501 000002 MOV TSSR(RS) RI ‘GET TSSR CONTENTS 

3171 041506 012702 104210 MOV aSSRINKMSC BITS, R2 :SET UP EXPECTED 

3172 041512 020102 CMP R1,R2 ARE THEY EQUAL 

3173 041514 001406 BEQ 170$ BR, IF OK 

3174 041516 005237 002212 INC FATFLG COUNT 

3178 041522 ERRHRD ERRNO,T24TRL,PKTSSR STSSR INCORRECT AFTER READ DATA 
041522 104456 TRAP  CSERHRD 
041524 000720 «WORD 464 
041526 046114 “WORD T24TRL 
041530 012136 “WORD PKTSSR 

3179 041532 170$:  CKLOOP :LOOP IF SELECTED é 

a 041532 104406 TRAP C$CLP1 

3181 FERRARA AEAEAAEAEREAERARARAAAAERARERAERAREEERARERRAEREREREKEREREERERE i 

3182 3 

ser sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) - { 

3185 s RRRReeeeReRRReeeeeeeeeenerennneeeenaneennnnereeaneneeeeneeeenerere 

3186 | 

3187 041534 013701 043620 MOV T2GBER*6, R1 iGET MESSAGE BUFFER * 

3188 041540 010102 MOV 1,R2 :SET UP EXP 

3189 041542 052702 040000 BIS WeinisR2 SSET THE RLS BIT IN EXPECTED 

3190 041546 020102 CMP R1,R2 SARE THEY EQUAL 

3191 041550 001406 BEQ 180$ [BR, IF EQUAL (ALL IS WELL) 

3192 041552 005237 002212 INC FATFLG [BUMP COUNT 

3196 041556 ERRHRD ERRNO, T24LOP,EXPREC :THE RLL BIT WAS NOT SET IN XSTO 
041556 104456 TRAP CSERHRD 
041560 000721 «WORD 465 
041562 045744 -WORD T24LOP 
041564 015564 ~WORD EXPREC 

3197 041566 180$:  CKLOOP 
041566 104406 TRAP  CSCLP1 

3198 041570 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
0415 L10063: 
041570 104403 TRAP CSESUB 

3199 041572 023727 002212 000017 CMP FATFLG,#15. z1S ERROR COUNT AT 25 

3200 041600 103402 BLO 999$ 7BR, IF LESS THAN 25 

3201 041602 004737 017272 JSR PC, CKDROP [TRY TO DROP THE UNIT 


3202 041606 999$: 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0195 

3205 :+ 

3206 ; 

3502 per 4, SUBTEST 10 

3209 : VERIFIES THAT wits, MODE-FIELD CODES IN THE READ 

3210 : : COMMAND CAUSE A FUNCTION REJECT TERMINATION WITH THE 

$513 fee) ; ILLEGAL COMMAND (ILC) ERROR BIT SET. 

3213 aie : 

3214 ie 3 

ei, 

3217 041606 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
041606 74.10: 
041606 104402 RAP C$BSUB 

3218 041610 004737 046404 JSR PC, T24RT3 3SET COMMAND PACKET UP CLEAR 

3219 041614 004737 046250 JSR PC, T24REST SET COMMAND PACKET 

3530 041620 004737 046342 JSR PC, T24RT2 zSET UP OTHER COMMAND PACKET 

$558 FRRARAAAAARAEAAARAAEARERAERERRAAAAERERERERREREREERRERERREREREREAEEREE 

22 3 

$55¢ ISSUE CONTROLLER ‘SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 

3558 TITITIIILITILILI LILLE LTTE ELLE LTTE ELT TTT TTT T TTT 

3228 041624 004737 016064 JSR PC, SOF INIT a hte ee oa CONTROLLER 

3229 041630 103407 BCS 20$ R IF INIT WAS OK 

3230 041632 005237 002212 INC FATFLG ‘BUMP COUNT 

3234 041636 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

3235 041640 ERRDF ERRNO, SFIERR,SF IMSG FATAL ERROR TSSR WAS NOT OK 
041640 104455 TRAP CSERDF 
041642 000722 -WORD 466 

644 003650 «WORD SFIERR 
46 012124 «WORD SFIMSG 

3236 041650 208: 

3237 041650 013737 002172 043610 MOV UNITN, T24DSW sSET uP DRIVE NUMBER 

$530 041656 012704 043570 MOV #T24PACKET, R4 ;SUBRULi iNe NEEDS PACKET ADDRESS 

3240 FRRAAAARAERAAREREAAEREREEREERAARRERRARERERERREREERAEREEEREREEREREEE 

3241 : 

$508 sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

3244 TTT ITITILTTITELELIT ETE T ELLE ETT TTT TTT TTT TTT 

3245 

3246 041662 004737 010752 JSR PC,WRICHR SISSUE WRITE CHARACTERISTICS 

3247 041666 103407 BCS 24$ 7BR, IF COMMAND ISSUED OK 

3248 041670 005237 002212 INC FATFLG $ COUNT 

3252 041674 010001 MOV RO,R1 :SAVE CONTENTS OF TSSR 

3253 041676 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
041676 104456 TRAP CSERHRD 
041700 000723 eWORD 467 
041702 005054 -WORD WRTMSG 
041704 012124 «WORD SFIMSG 

3254 041706 248: CKLOOP ;LOOP IF SELECTED 
041706 104406 TRAP CSCLP1 


$522 041710 013737 003114 043712 MOV FREE, T24RB :STARTING WRITE BUFFER ADDRESS 





3299 042046 
3300 042052 
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013701 


1-8 


043620 
001000 


002212 


092212 
017272 


MACRO 


000017 
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EVERSE 


fF PAAAAAAAAAAAAAAAAAAAAAAAERAAAAAAAAARAERAERERERAREREEAAARERAEEREAAEE 


SILLEGAL MODE DATA,ACK COMMAND 


6 
fF SRAAAAAAARAAAAAAAAAAAARAARAAAAAAAAAAAAAAAAARERERERAAAAARAERAAAAAEEEE 


MOV #104001 tate LLEGAL MODE DATA,ACK COMMAND 
MOV #T26PK3_R 3 SET UP R4 WITH PACKET ADDRESS 
MOV #256. arith 3SET UP RECORD SIZE IN PACKET 
MOV R4, TSDB(RS) ; COMMAND 
JSR PC ,WAITF WAIT FOR joo A TO SET 
MOV TSSR(RS5) RI [GET TSSR CONTENTS 
MOV #SSR'SC'BIT1!B1T2, R2 7SET UP EXPECTED 
CMP R1,R2 zARE THEY EQUAL 
BEQ 2BR, OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T24WDF ,PKTSSR sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
«WORD 4 
«WORD T24WDF 
-WORD PKTSSR 
7S$: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
FERRARA AAAAAAARAAERAAAAAAAEAAAAAAAEAAAAERAARERARERAAAREEAAAAREREEEEREE 
zREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
ITIITIIIILI TITEL ETTT ELT LE TEE TT TTT TTT TTT 
MOV T24BFR+6,R1 GET MESSAGE BUFFER 
MOV R1,R SET UP EXPECTED 
BIS #BIT9I,R2 SET THE ILC BIT IN EXPECTED 
CMP R1,R2 ZARE THEY EQUAL 
BEQ -_ IF EQUAL (ALi IS WELL) 
INC FATFLG 
ERRHRD ERRNO,T24L00,EXPREC THE ILC att he NOT SET IN xSTO 
TRAP CSERHRD 
-WOR 469 
-WORD 124L00 
-WORD EXPREC 
180$: CKLOOP 
TRAP CSCLP1 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10064: 
TRAP CSESUB 
cme FATFLG,#15. IS ERROR COUNT AT 25 
BLO :BR, IF LESS THAN 25 
9995 JSR PC, CKDROP TRY TO DROP THE UNIT 





SEQ 0196 
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|«Test 4: BASIC READ DATA (FORWARD AND REVERSE SEQ 0197 
3302 i+ 
3303 3 
$300 sTEST 4, SUBTEST 11 
3306 [VERIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A 
3307 [FUNCTION REJECT TERMINATION WITH ILLEGAL ADDRESS 
| 3308 : (ILA) ERROR BIT SET. 
3309 : 
3310 : 
 -B8 - 
3314 042052 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
042052 14.11: 
042052 104402 TRAP C$BSUB 
3315 042054 004737 046404 JSR PC, T24RT3 7SET COMMAND PACKET UP CLEAR 
3316 042060 004737 046250 JSR PC, T24REST :SET COMMAND PACKET 
3317 042064 004737 046342 JSR PC, T24RT2 [SET UP OTHER COMMAND PACKET 
3359 FARRAR AAAAAERAAAAAREREAREEAAERAAREARRARAAAREREARREREEERREREREEREEEEE 
0 3 
74 zISSUE CONTROLLER ‘’SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
3323 SRReeteneneeeeeeeeeeeneteeeeneeneeneeeneeeeenneeeeeneteeeeeeeeeeee 
3324 
3325 042070 004737 016064 JSR PC, SOF INIT 7D0 INITIALIZE on CONTROLLER 
3326 042074 103407 BCS 208 [BR IF INIT WAS OK 
3327 042076 005237 002212 INC FATFLG ;BUMP C cmt 
3331 042102 010001 MOV RO,R1 :CONTENTS OF TSSR REGISTER 
3332 042104 ERRDF ERRNO, SFIERR,SFIMSG ZFATAL ERROR TSSR WAS NOT OK 
042104 104455 TRAP  (CSERDF 
042106 000726 -WORD 470 
042110 063650 -WORD SFIERR 
042112 012124 -WORD SFIMSG 
3333 042114 208: 
3334 042114 013737 002172 043610 MOV UNITN, T240SW zSET UP DRIVE NUMBER 
3333 042122 012704 047570 MOV #T246PACKET,R4 SUBROUTINE N©EDS PACKET ADDRESS 
3337 J ARAAAAAAARAAAAERAERAAAAAAEEAEEARERARARAREEERAEREREAERERAAEAREEREREREEE 
3338 3 
$32) WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
3341 S eeeneneereeeeenenenteretereeeeneeneneneeneneeneneeeneaennereneneee 
3342 
3343 042126 004737 010752 JSR PC,WRTCHR ISSUE WRITE CHARACTERISTICS 
3344 042132 103407 BCS . 2468 :BR, IF COMMAND ISSUED Ok 
3345 042134 005237 002212 INC FATFLG ;BUMP COUNT 
3349 042140 010001 MOV RO,R1 zSAVE CONTENTS OF TSSR 
3350 042142 ERRHRD ERRNO, WRTMSG, SF IMSG ZWRITE CHARACTERISTISC FAILED 
042142 104456 TRAP CSERHRD 
042144 000727 «WORD 471 
042146 005054 -WORD WRTMSG 
042150 012124 -WORD  SFIMSG 
3351 Oleg 248: CKLOOP sLOOP IF SELECTED * ea el 
3352 042154 003114 043712 MOV FREE,T ZILLEGAL STARTING READ BUFFER ADDRESS 


1 3737 
3353 042162 012737 177700 043714 MOV 4199900, T34R8+2 CREATE ILLEGAL ADDRESS 


Reel ee See See ee awe t _ a < - 
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| TEST 4: BASIC READ DATA (FORWARD AND REVERSE SEQ 0198 
33 
| 3355 5 Steneenecenencosesenenesesqsonenseseseceneoneneeenessesenoneesenes 
3356 
$327 SLEGAL MODE ,ACK,CVC=1,READ COMMAND 
| 3359  Reeeeeeeeeeeeeneeeneeeeeeeneneeeneneneeneeeeeeneneeeeeeeteseeteere 
3360 
3361 2170 012737 140001 043710 MOV rhe sy ad El sewes ;LEGAL MODE,ACK,CVC=1,READ COMMAND 
$208 042176 012704 043710 MOV #T26P K3.R SET UP RG WITH PACKET ADDRESS 
3363 042202 012737 000400 043716 MOV #256, T0827 3SET UP RECORD SIZE IN PACKET 
3364 042210 010465 000000 MOV R4, vasetns) Z ISSUE COMMAND 
3365 042214 004737 016340 JSR PC, WAITS SWAIT FOR peat Shh TO SET 
3366 042220 016501 000002 MOV TSSR(RS) RI ;GET TSSR CONTENT 
3367 042224 012702 100206 MOV #SSR!SC!B1T1 8172, R2 sSET UP EXPECTED > 
3368 042230 020102 CMP R1,R2 TARE THEY EQUAL 
3369 042232 001406 BEQ 738 7BR, IF OK 
3370 042234 005237 002212 TNC TFLG [BUMP COUNT 
3374 042240 ERRHRD alla T24WDG,,PKTSSR 3TSSR INCORRECT AFTER READ DATA 
042240 104456 TRAP CSERHRD 
042242 000730 eWORD 472 
042244 044062 «WORD T24WDG 
042246 012136 -WORD PKTSSR 
3375 042250 75$: CKLOOP ;LOOP IF SELECTED 
3376 042250 104406 TRAP CSCLP1 
3377 aaa cata iat a a a ann 
3378 
$35) [READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
3381 + Reeeeeeeeeteeeeeneeeeeereeeereneneernnneereneteneneeeeees: SFRegeenre 
3382 
3383 042252 013701 043620 MOV T24BFR+6,R1 GET MESSAGE BUFFER 
3384 042256 010102 MOV R1,R2 SET UP EXPECTE 
3385 042260 052702 000400 BIS #B1T8,R2 :SET ne ILA BIT IN EXPECTED 
3386 042264 020102 CMP R1,R2 TARE THEY EQUAL 
3387 042266 001406 BEQ 180$ BR, IF EQUAL (ALL IS WELL) 
3388 042270 4237 002212 INC FATFLG [BUMP C 
3392 042274 ERRHRD ERRNO, T24ILA,EXPREC sTHE ILA BIT WAS NOT = IN xXSTO 
042274 104456 TRAP CSERHRD 
042276 000731 -WORD 473 
042300 044312 -WORD T24iLA 
042302 015564 «WORD EXPREC 
3393 042304 180$: CKLOOP 
042304 104406 i RAP CSCLP1 
3394 042306 ENDSUB 7>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
042306 L10065: 
042306 104403 TRAP C$ESua 
3395 042310 023727 602212 000017 CMP FATFLG,#15. zI1S ERROR COUNT AT 25 
3396 042316 103402 BLO 999$ [BR, IF LESS THAN 25 
3397 042320 004737 017272 - JSR PC, CKDROP TRY TO DROP THE UNIT 
3398 042324 999$: 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE SEQ 0199 
00 3+ 
01 3 
| 3402 :TEST 4, SUBTEST 12 
| 3404 VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING 
3405 ZNONEXISTANT MEMORY CAUSES RECOVERABLE ERROR 
34 Z TERMINATION (TC=4), WITH THE NXM BIT SET IN THE TSSR, AND 
3407 [THAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY. 


SHERARAHARARAAARETATAARAHRERREHAAAEREE AERA RERRREREREEHeeEeeReeeneee 


34 ; 

 og't4 ; CAUTION 

3411 : The LSI BUS drivers for all available address lines(16-21) 

3412 3 ore only checked when running on a 11/238 system with more than 

3413 : 128K words of memory! 

3414 Z SEAT KAAAAAAARAAAAAAAARAARAARAEARARAARAAAAARAARAERAARERARAAERAREAAERAEEAREEEEEEE 

3415 = 

3416 

3417 042324 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
042324 14.12: 
042324 104402 TRAP C$8SUB8 

3418 042326 005737 003126 TST NXMFLG sb0 WE HAVE IT? 

3419 042332 001002 BNE 10$ IF ENOUGH 

3420 042334 000137 042542 JMP 80$ <eRIP THIS TEST IF NOT 

3421 042340 004737 046404 10$: JSR PC, T24RT3 3SET COMMAND PACKET UP CLEAR 

3422 042344 004737 046250 JSR PC, T24REST SET COMMAND PACKET 

35¢ 042350 004737 046342 JSR PC, T24RT2 :SET UP OTHER COMMAND PACKET 

3425 J ARAAAORAAAAAAAAEAAAARAERERERARARAAAAERERAEAAEARAAARERAREERAEREEAERREE 

3426 3 

534 ; ISSUE CONTROLLER ‘’SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 

sho SeeeeReneReeeeeeneneeeeeeeeneeeeenneneeeeeeeneneneeteneneeneeerere 

34 

3431 042354 004737 016064 JSR PC,SOFINIT 300 eet ae a CONTROLLER 

3432 042360 103407 BCS 20$ :BR IF INIT WAS OK 

3433 042362 005237 002212 . INC FATFLG ae 

3437 042366 010001 MOV RO,R1 : CONTENTS OF TSSR REGISTER 

3438 042370 ERRDF ERRNO, SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
042370 104455 TRAP CSERDF 
042372 000732 -WORD 474 
042374 003650 «WORD SFIERR 
042376 012124 -WORD SFIMSG 

3439 042400 20$: 

3440 042400 013737 002172 043610 MOV UNITN, T24DSW 7SET UP DRIVE NUMBER 

ses 042406 012704 043570 MOV #T24PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

3443 peeeeeeeeeneeeeeeneneneneeenteeeeneeeaneeeenereeeeeeeeeeeeeeeeeteee 

3444 ; 

943 sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

3447 [teAeeeneeeereneeeeeeeereeteeeneeeneeeneeeeeneeeeeeteneeeeeeeeeees 

344 2 

3449 042412 004737 010752 JSR PC .WRTICHR Z ISSUE WRITE CHARACTERISTICS 

3450 042416 103407 BCS 24$ :BR. IF COMMAND ISSUED Ok 

3451 042420 005237 002212 INC FATFLG 

3455 042424 010001 MOV RO,R1 [SAVE CONTENTS OF TSSR 

3456 042426 ERRHRD ERRNO,WRTMSG, SF IMSG WRITE CHARACTERISTISC FAILED 





-————— 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE 
042426 164456 TRAP CSERHRD 
042430 00073 s 475 
042432 005054 . D WRTMSG 
042434 012124 «WORD SFIMSG 
| 3457 042436 24$: CKLOOP sLOOP IF SELECTED 
0424 104406 CSCLPI 
3458 042440 004737 021276 JSR PC, INVERT z INVERT THE EXTENDED FEATURES SWITCH 
3459 042444 013737 003130 043712 MOV NXMLO, T24RB 7SET TO NXM MEMORY ADDRESS 
3460 042452 013737 003132 043714 MOV NXMHI, T24RB+2 7SET HIGH BITS 
3462 FARRAR AAAAAAAAAAAEAARAAAAAERAEAEAREAAAEAERERAERAEREREREREALAARERAAAEEEEE 
3463 3 
 re¢) READ, ACK, CVC=1, COMMAND 
) 3466 PITTI IIS T TILT E TTT E LTTE L ETT TTT TTT TTT TTT TTT TTT 
3467 
3468 042460 012737 140001 043710 MOV #140001, Laat sREAD, ACK, CVC=1, COMMAND 
3469 042466 012704 043710 MOV T24PK3,R :SET UP R4 WITH PACKET ADDRESS 
3470 042472 012737 000400 043716 MOV #286, T5087 3SET UP RECORD SIZE IN PACKET 
3471 042500 010465 000000 MOV R4,TSDB(RS) : ISSUE COMMAND 
72 042504 016340 JSR PC ,WAITF [WAIT FOR SSRiBIT1!BIT2 TO SET 
3473 042510 016501 100 MOV TSSR(RS) RI GET TSSR CONTENT 
3474 042514 012702 104210 MOV #SSR'SC!NXM!BIT3, R2 ;SET uP EXPECTED 
3475 042520 020102 CMP R1,R2 ARE THEY EQUAL 
3476 042522 001406 BEQ 75$ 7BR, IF OK 
3477 042524 005237 002212 INC FATFLG COUNT 
3481 042530 ERRHRD ERRNO, T24NXM,PKTSSR :TSSR INCORRECT AFTER READ DATA 
0425 104456 TRAP CSERHRD 
042532 000734 -WORD 476 
25 044151 WORD T24NXM 
042536 012136 -WORD PKTSSR 
3482 042540 75$: CKLOOP LOOP IF SELECTED 
042540 104406 TRAP CSCLP1 
3483 042542 80$: 
3484 042542 ENDSUB 7>>>>>>>>>>>> Se heres >>>>>>>>>>>> 
L : 
| 042542 104403 TRAP CSESUB 
3485 042544 023727 002212 000017 CMP FATFLG,#15. 71S ERROR COUNT AT 25 
3486 042552 103402 BLO 999$ 7BR, IF LESS THAN 25 
3487 042554 004737 017272 JSR PC, CKDROP TRY TO DROP THE UNIT 


3488 042560 999$: 
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| TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0201 
3490 3+ : 
3491 ; 
| 3492 STEST 4, SUBTEST 13 
3494 VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE 
3495 ; TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION 
3198 WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET 
3498 : 
3499 3 
3501 4 
3502 042560 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
042560 74.13: 
042560 104402 TRAP C$8SUB 
3503 042562 004737 046404 JSR PC, T24RT3 7SET COMMAND PACKET UP CLEAR 
3504 042566 004737 046250 JSR PC, T24REST 3SET COMMAND PACKET 
Sone 042572 004737 046342 JSR PC, T24RT2 :SET UP OTHER COMMAND PACKET 
$e05 FERAARARAAAAEAAAEAEERREREERERARARAARAARAEARAEARERERRERERERHRERREEREEE 
3508 $ 
Ese ISSUE CONTROLLER ‘’SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
sei3 SReeRRAReeReeeeReRAeeeeeAeAeneeeeeeeeeneneereeeneneenereneeeneneer 
351 
3513 042576 004737 016064 JSR PC, SOF INIT 3:d0 ct ae sa CONTROLLER 
3514 042602 103407 BCS 20$ :BR IF INIT WAS OK 
3515 042604 005237 002212 INC FATFLG COUNT 
3519 042616 010001 MOV RO,R1 [CONTENTS OF TSSR REGISTER 
3520 042612 ERRDF ERRNO,SFIERR,SFIMSG SFATAL ERROR TSSR WAS NOT OK 
042612 104455 TRAP CSERDF 
042614 00073 eWORD 477 
042616 003650 «WORD SFIERR 
042620 012124 -WORD SFIMSG 
3521 042622 20$: 
3522 042622 013737 002172 043610 MOV UNITN, T24DSW :SET UP DRIVE NUMBER 
$257 042630 012704 043570 MOV #T24PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
3052 FERRARA AEEARRERREREERAREERERERAAERARERREREREEREAREREERERERREREEEEE 
3526 3 
$256 sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
<4 S ReeeReeeeeeteReeeneeeneeatenenennneeenaneeeeneeeeeneeeeeeeeeeenees 
35 
3531 042634 737 010752 JSR PC,WRICHR ZISSUE WRITE CHARACTERISTICS 
532 042 103407 BCS 24$ 2BR. IF COMMAND ISSUED OK 
3533 042642 005237 002212 INC FATFLG COUNT 
3537 042646 010001 MOV RO,R1 + SAVE CONTENTS OF TSSR 
3538 042650 ERRHRD ERRNO,WRTMSG,SFIMSG WRITE CHARACTERISTISC vais 
042650 104456 CSERHRD 
042652 000736 TOORD 478 
042654 005054 «WORD WRIMSG 
042656 012124 «WORD SFIMSG 
3539 042660 24$: CKLOOP ;LOOP IF SELECTED 
3540 042 104406 TRAP CSCLP1 
3541 LARAAAAAAAAAAAAAEAAAAARARAEARARAAAARAAAREEEAARAEKEREERERReReeeeAAE Re 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) .. SEQ 0202 

3542 : 

3343 TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

3545 jseneeeneneneanenenenevereneecncenenensnanenensencgenenesesesecnens 

3546 

3547 042662 004737 011104 JSR PC REWIND ZCALL TAPE REWIND COMMAND 

3548 042666 004737 016426 JSR PC. CHKTSSR [SEE HOW TSSR IS 

3549 042672 103407 BCS 30$ :BR, IF NO PROBLEM 

3550 042674 010001 MOV RO,R1 SSAVE TSSR 

3551 042676 005237 002212 INC FATFLG [BUMP COUNT “ 

3555 042702 ERRHRD ERRNO, T24RWN,PKTSSR [REWIND NOT ACCEPTED 
042702 104456 TRAP ss CSERHRD 
042704 000737 .WORD 479 
042706 045046 “WORD  T24RWN 
042710 012136 “WORD* PKTSSR 

3556 042712 30$:  CKLOOP :LOOP IF SELECTED . 
042712 104406 TRAP  C$£LP1 

3557 042714 012703 000400 MOV #256. .R3 ZRECORD SIZE *. 

3558 042720 013737 003114 043712 MOV FREE, T24RB SSTARTING WRITE BUFFER ADDRESS ~ 

3560 J ARAAAAAAAAAAAAAAEAAAAAAAEAAERARAAARARAAARARAERARAAEAEREEEEREEEREEEEEE 

3561 ; 

soc8 READ REVERSE DATA,ACK COMMAND 

3564 PITTI TITIIILITITTLITTT TLL TTT TTT TTT TTT TTT TTT 

3565 

3566 042726 012737 100401 043710 MOV #100601, T24PK3 ZREAD REVERSE DATA,ACK COMMAND 

3567 042734 012704 043710 pom: MOV #T24PK3_RG [SET UP R4 WITH PACKET ADDRESS 

3569 042740 010337 043716 “mov R3,124S2 ZSET UP RECORD SIZE IN PACKET 

3570 042744 010465 000000 MOV R4. TSDB(RS) 3 ISSUE COMMAND 

3571 042750 004737 016340 JSR PC: :WALTE WAIT FOR SSR TO SET 

3572 042754 016501 000002 : MOV TSSRIRS) RI [GET TSSR CONTENTS 

3573 042760 012702 100206 MOV PSSRISCIBITIIBIT2.R2  ISET US EXECTER 

3574 042764 020102 CMP R1,R2 TAR Y, EQUAL 

3575 042766 001406 BEQ 75$ :BR, IF OK ~ 

3576 042770 005237 002212 INC FATFLG [BUMP COUNT 

3580 042774 ERRHRD ERRNO, T24WDE,PKTSSR :TSSR INCORRECT AFTER READ DATA 
042774 108456 TRAP CSERHRD 
042776 000740 .WORD 480 
043000 044511 : “WORD  T24WDE 
043002 012136 “WORD PKTSSR 

3581 043004 75$:  CKLOOP sLOOP IF SELECTED 

is 043004 104406 TRAP — CSCLP1 

3583 FARRAR AAAAAEAAAEAAAAAAREREREEARAERARAERAAAERERAAAERAAAEREREREREREREEEEEEE 

3584 : 

3585 TREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xST9O) 

3587 [eeReeeeeeeneeeneeeeeeeeeeeeeeeeeaneeneeeneeeeeeenetenereneneeetees 

3588 

3589 043006 013701 043620 MOV T24BFR+6,R1 :GET MESSAGE BUFFER 

3590 043012 010102 MOV R1,R2 [SET UP EXPECTE 

3591 043014 052702 002000 BIS #B1T10,R2 7SET THE NEF BIT IN EXPECTED 

3592 043020 020102 CMP R1,R2 TARE THEY EQUAL 

3593 043022 001406 BEQ 180$ 7BR, IF EQUAL (ALL IS WELL) 

3594 043024 005237 002212 INC FATFLG [BUMP COUNT 
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MACRO M1113  iidmnedi 09:19 PAGE 111-2 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


3598 043030 ERRHRD ERRNO, T24NEF ,EXPREC 
043030 104456 
043032 741 
043034 043740 
043036 015564 
3599 043040 180$: CKLOOP 
043040 104406 
3600 04304 ENDSUB 
04304 
043042 104403 
3601 043044 023727 002212 000017 cMP FATFLG,#15. 
3602 043052 103402 BLO 999$ 
3603 043054 004737 017272 JSR PC ,,CKDROP 


3604 043060 999$: 


SE 0203 
:THE RLL BIT WAS NOT SET IN XSTO 
RAP 


WOR 
«WORD T24NEF 
«WORD EXPREC 


TRAP CSCLPI 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10067: 


TRAP CSESUB 
31S ERROR COUNT AT 25 
2BR, IF LESS THAN 25 
zTRY TO DROP THE UNIT 


TR aeRO be ee 116 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


3606 
3607 
sone 


RR 
a 


ed ed ed ed ed ed 
— 


RRO 


iat 

NESS 
2 
z 


eSo 
NOW SMUMOSN 


3637 


MM ao 
SN 


¥ 


MUMMMnui & & & 
ALNIOOSNS 





104402 
004737 
004737 
004737 


reo 24 


003650 
012124 
013737 
012704 


005054 
012124 
104406 


016064 
002212 


002172 
043570 


010752 
002212 


043610 


3+ 
;TEST 4, SUBTEST 14 
[VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE 
3TAPE IS POSITIONED BEFORE THE FIRST RECORD ON T 
;(BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT. 
BGNSUB j>>>>>>>>>>>> ae Retes >>>>>>>>>>>> 
- "TRAP ss C$BSUB 
JSR PC, T24RT3 _ gSET COMMAND PACKET UP CLEAR 
JSR PC, T24REST [SET COMMAND PACKET 
JSR PC, T24RT2 ZSET UP OTHER COMMAND PACKET 
J AAAAAAAAAAAEAAAAERERAARERAEEEAAARERAARAAARAARERAREEREREREREEEREREEEEREE 
ZISSUE CONTROLLER “‘SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
ITITITTTLILITILELELT LETTE ELE T TTT TTT TTT TTT 
JSR PC, SOF INIT 3D0 INITIALIZE ON CONTROLLER 
BCS 20$ :BR_IF INIT WAS OK 
INC FATFLG COUNT 
MOV RO.R1 ZCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG SFATAL ERROR TSSR WAS NOT OK 
TRAP — CSERDF 
«WORD 482 
-WORD SFIERR 
208 “WORD SFIMSG 
"Mov UNITN, T24DSW ZSET UP DRIVE NUMBER 
MOV #T24PACKET RG ;SUBROUTINE NEEDS PACKET ADDRESS 
FARAAAAAAAAAAAAEAARAAAEAARERERERARAAAAREREEAREEAEERERAEEAAAEAAEREEREEE 
[WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
SRRAReeeeeeeeReeeeneeeeeeeeeeaeeeneneeraneeeeneeeeereeeeeneeeetens 
JSR PC, WRTCHR : ISSUE WRITE , CHARACTERISTICS 
BCS 24$ BR, IF COMMAND ISSUED 
INC FATFLG {BUMP COUNT — 
MOV RO,R1 ZSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
CSERHRD 
TUORD 483 
.WORD WRTMSG 
-WORD  SFIMSG 
24$:  CKLOOP :LOOP IF SELECTED 
TRAP —- C$CLP1 


SF AAAAAAAAAAAAAAARAAAAAAAAERAAAAARERARAAEAARAAARARAAEAAREEAEEREREER AREAS 


SEQ 0204 
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TEST 





3658 
3659 
3660 
3661 
366, 


3665 


04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 


3 
3710 043336 


104406 
012703 
013737 


012737 
012704 
010337 
0 5 


104406 
012703 
013737 


000400 
003114 


140005 
043710 


043716 


002212 


000400 
003114 


100401 
Rie 


716 
000000 


K 16 
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043712 


043710 


043712 


043710 


4: BASIC READ DATA (FORWARD AND REVERSE 


TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


° . 
FRARAARAAAAAAAAAAAAAAREERERRERAARAARAARAERAREREERERERAERAEEARREREREEEE 


JSR PC REWIND ZCALL TAPE REWIND COMMAND 

JSR PC’ CHKTSSR SSEE HOW TSSR IS 

BCS 308 [BR, IF NO PROBLEM 

MOV RO,R1 SSAVE TSSR 

INC FATFLG ‘BUMP COUNT 

ERRHRD ERRNO, T24RWN,PKTSSR SREWIND NOT ACCEPTED 
WORD 
“WORD 
WORD 

30$:  CKLOOP :LOOP IF SELECTED il 
MOV #256. ,R3 :RECORD SIZE 
MOV FREE. 124RB TSTARTING WRITE BUFFER ADDRESS 


SERAAEAARAEAAEAAAERAAEERRAEEREEAEARAREREERARAAEARREREREREREREREREREREEEE 


[WRITE DATA,ACK,CVC=1 COMMAND 


° 
J ARAAAAAAAAAREAAEARAERAERERERERRAARAEEREEERERAEERAEEEREERERREREREEREEEE 


MOV #140005, T24PK3 sWRITE DATA,ACK,CVC=1 COMMAND 
pis MOV #T24PK3_R [SET UP R4 WITH PACKET ADDRESS 
MOV R3,724S2 ZSET UP RECORD SIZE IN PACKET 
MOV R4.TSDB(RS) : ISSUE COMMAND 
JSR PC WAITF [WAIT FOR SSR TO SET 
MOV TSSR(RS),R1 :GET TSSR CONTENTS 
MOV #SSR,R2 :SET UP EXPECTED 
CMP R1 aS TARE THEY EQUAL 
BEQ 738 7BR, IF OK 
INC TFLG [BUMP COUNT 
ERRHRD ERRNO URTERR.PKTSSR :TSSR INCORRECT AFTER READ DATA 
WORD 
“WORD 
“WORD 
75$:  CKLOOP :LOOP IF SELECTED il 
MOV #256. .R3 zRECORD SIZE 
MOV FREE, T24R8 SSTARTING READ BUFFER ADDRESS 


J AAAAAAAAAAAEAAAAAAAAREREREAAAEAAAAEAAERERERAEAAEARARERAEREREREEEEEEE 


[READ REVERSE DATA,ACK COMMAND 


e 
SERAAAAAAAAAAAAAAAAAAAAEAAAEAAARAAARAEEAAAAAAAAERAERERAAEREEEREREREREEE 


MOV #100401 , T24PK3 zREAD Hg yh ACK COMMAND 
MOV #T24PK3,R4 3SET UP R4 WITH PACKET ADDRESS 
MOV R3,724SZ SET UP RECORD SIZE IN PACKET 
MOV R4,TSDB(RS) ISSUE COMMAND 


165$: 


CSERHRD 
484 


T24RWN 
PKTSSR 


CSCLP1 


CSERHRD 
485 


CSCLP1 


SEQ 0205 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) SEQ 0206 

3711 043342 004737 016340 JSR PC ,WAITF zWAIT FOR SSR TO SET 

712 043346 016501 000002 MOV TSSR(RS) RI :GET TSSR CONTENTS 

3713 043352 012702 000200 MOV #SSR,R2 7SET UP EXPECTED 

3714 043356 020102 CMP R1,R2 TARE THEY EQUAL 

3715 043360 001406 BEQ :BR, 

3716 043362 005237 002212 INC FATFLG :BUMP COUNT 

3720 043366 ERRHRD ERRNO, T24TRL,PKTSSR :TSSR INCORRECT AFTER READ DATA 
043366 104456 TRAP CSERHRD 
043370 000746 .WORD 486 
043372 046114 .WORD T24TRL 
043374 012136 .WORD PKTSSR 

3721 043376 170$:  CKLOOP sLOOP IF SELECTED 
043376 104406 TRAP — C$CLP1 

3722 043400 012703 000400 MOV #256. ,R3 ZRECORD SIZE 

3723 0434046 013737 003114 043712 MOV FREE, T24RB ZSTARTING READ BUFFER ADDRESS 

3725 J AAAAAAAAAAAAARAEAARAAAEAAEAAEREARAEARAAAEAEAAREEARAEEREREREARREAREREEREEREEE 

3726 : 

3727 TREAD REVERSE DATA,ACK COMMAND 

3729 PITITITIIITIITIITIT ITT TT TIT LiTi TT LiTt Lit LL Lt tLe LTT ee 

3730 

3731 043412 012737 100401 043710 MOV #100601, T24PK3 ZREAD REVERSE DATA,ACK COMMAND 

3732 043420 012704 043710 195$: MOV #T24PK3,R4 :SET UP R4 WITH PACKET ADDRESS 

3733 043424 010337 043716 MOV R3, 12452 :SET UP RECORD SIZE IN PACKET 

3734 043430 010465 000000 MOV Ra TSDB(RS) : ISSUE COMMAND 

3735 043434 004737 016340 JSR C.WAITF WAIT FOR SSR TO SET 

3736 043440 016501 000002 MOV TSén (R5),R1 :GET TSSR CONTENTS 

3737 043444 012702 100204 MOV been sc (6112, R2 :SET UP EXPECTED 

3738 043450 020102 CMP R1,R2 TARE THEY EQUAL 

3739 043452 001406 BEQ 200$ BR, IF O 

3740 043454 005237 002212 INC FATFLG ‘BUMP COUNT 

3744 043460 ERRHRD ERRNO, T24TRL.PKTSSR :TSSR INCORRECT AFTER READ DATA 
043460 104456 TRAP § CSERHRD 
043462 000747 .WORD 487 
043464 046114 .WORD T24TRL 
043466 012136 , .WORD PKTSSR 

3745 043470 200$:  CKLOOP :LOOP IF SELECTED 
043470 104406 TRAP  CS$CLP1 

3746 043472 013701 043626 MOV T24BER+14, R1 3GET MESSAGE BUFFER (XST3) 

3747 043476 010102 MOV R1,R2 :SET UP EX 

3748 043500 052702 000001 BIS #BITO,R2 7SET THE RIB BIT IN EXPECTED 

3749 043504 020102 CMP R1,R2 zAR E THEY EQUAL 

3750 043506 001406 BEQ 5168 R, IF EQUAL (ALL IS WELL) 

3751 043510 005237 002212 INC FATFLG 

3755 043514 ERRHRD ERRNO, T24LOR,EXPREC THE RIB BIT WAS NOT SET IN XSTO 
043514 104456 TRAP  CSERHRD 
043516 000750 -WORD 488 
043520 044012 “WORD T24LOR 
043522 015564 .WORD EXPREC 

3756 043524 210$:  CKLOOP 
043524 104406 TRAP = CSCLP1 

3757 043526 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
043526 L10070: 
043526 104403 TRAP —-CSESUB 
0435 002212 000017 CMP FATFLG,#15. zIS ERROR COUNT AT 25 
0435 BLO 999$ :BR, IF LESS THAN 25 
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TES! 4: BASIC READ DATA (FORWARD AND REVERSE) 

2760 043540 004737 017272 JSR PC, CKDROP 
3761 043544 999$: 
3er ; 
3765 043544 004737 016546 : JSR PC, TSTLOOP 
3766 043550 103002 BCC 163$ 
2767 043552 000137 034362 JMP T24L00P 
3768 43556 163$: 
3769 643556 EXIT TST 

556 104432 


043556 
043560 002654 


TRY TO DROP THE UNIT 


H+ WE NEED A ITERATE TEST 
IF NO LOOP REQUIRED 
“EXECUTE AGAIN 


sALL DONE THIS TEST 


- WORD 


CSEXIT 


L10052-. 


SEQ 0207 


ry 


———_—__——_ 


SV? = HARDWARE TESTS 1 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


3 

3777 043570 
3778 043570 
3779 043572 
3780 043574 
3781 043576 
3782 043600 
3783 043600 
3784 043602 
aree 043604 


5786 06 
3787 043610 
ee 043612 


Som 043706 
3804 043710 


043570 
100204 


000012 
043612 
0 


000000 


043700 
100206 


000006 


100205 
003114 


000000 
000000 


010 
200 
000000 
000000 


100005 
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3% 
[LOCAL STORAGE FOR THIS TEST 
; =<. +#1098177770 
T24PACKET: 

WORD 100204 


~ WORD T24DATA 

-WORD O 

WORD 10. 
T24DATA: 

«WORD T24BFR 

WORD 0 


“WORD 20. 
0 


- WORD 
T24DSW: .WORD 0 
T24BFR: .BLKW 25. 


[WRITE SUBSYSTEM MEMORY COMMAND PACKET 
x =<. + 1098177770 


T24PK2: 
-WORD 100206 
~ WORD T24BF 2 
-WORD O 
» WORD 6. 
T24PK3: 
-WORD 100205 
T24RB: 
T24WB: .WORD FREE 
» WORD 0 
T24SZ: .WORD 0 
EVEN 
T24BF 2: 
T248S0: .BYTE 0 
T24B8S1: .BYTE 00 


-EVEN 
; TAPE MOTION PACKET COMMAND VALUES 
T24RN: .WORD 100005 
T24WDR: .WORD 
T24CON: .WORD 


oW 
T24DLY: .WORD 


COMMAND PACKET FOR TEST 

WRITE CHARACTERISTICS COMMAND, WITH IE, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 

sSTARTING VALUE OF BLOCK SIZE 
CHARACTERISTICS DATA BLOCK 

sADDRESS OF MESSAGE BUFFER 

LENGTH OF MESSAGE BUFFER 


DRIVE SELECTION BITS 2-0 
MESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, IE AND ACK 
sADDRESS OF SELECT BLOCK DATA 


SIZE OF DATA PACKET 


READ COMMAND, IE AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


3;BSELO AREA 
:BSEL1 AREA 
3SEL 2 AREA 
;DATA AREA 


READ DATA (NEXT) 
READ DATA RETRY 
WRITE CONTINOUS 


END OF DATA 
DELAY STORAGE AREA 


SEQ 0208 


Ps, 


ee 


6 
3837 043740 
3838 044012 
3839 044062 
3840 Bee aee 


046202 


3863 
3864 


3886 
3887 046332 
3888 046336 


ee ke ke ek kk ek a kk ed ed ed od od 
SONNNVNVNVNONNONMNNNNONNN— —nnnn— 


MMNPDNN VEWESSENNSWE SSN HASHES 


TSV7 = HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


— ee SS) Ss = 


SRE HLENNNNVVANOLNOFS SNOUUININN-—O 
MUMIA: WWW = ILI WIS SW eS 


et ab et a ne 


043570 
100004 
043600 


000012 
043612 


000024 
000000 
000030 
177777 


000000 
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3+ 
3 LOCAL 


Oe ee ek ed ee ek ek ed ed ed ed ed od od 
BEAK (OONMNUN “AN OAGQWVOUNNNOO 
WW = WWW Ss WU SW SOW FSW 

_" 

y~ 

~ 

= 4 


-+ 


© 


T24NEF : 


TST241D:" 


NNNNNNN NNN III IRR RRR 


TEXT MESSAGES FOR TEST 


"NEF Not Set After NON-EXECUTABLE FUNCTION’ 

"RIB Not Set After READ REVERSE Into BOT’ 

*TSSR Not Correct After peseges Buffer Address Bits Set’ 

*TSSR Not Correct After NXM Memory Address In Packet’ 

*TSSR Not Correct After Illegal Mode Bits Set’ 

"Illegal Address Bits, Failed To Set ILA Bit In xSTO' 

‘Illegal Mode Bits, Failed To Set ILC Bit In xSTO' 

"READ COMMAND Not Accepted’ 

*TSSR Not Correct After WRITE DATA Command" 

‘Tape Not At BOT After REWIND ey 

"Data Written To Tape Not Equal To Data og From Tape’ 

"READ DATA OVER EOT GAVE NO TAPE STATUS ALERT 

*TSSR Not Correct After READ COMMAND Reject’ 

"Rewind (POSITION) Command Not Accepted 

"RAM Error, Correct Data Pattern Not In Ram‘ 

*TSSR Init. Failed After READ C 

"Drive 7 Select Failed To Set ‘OFL’’ In TSSR* 

*TSSR Not Correct After READ DATA Command, SWB Bit Set’ 

*TSSR Not Correct After READ DATA Command’ 

"CVC Set, Didn't Reset VCK In oresege Buffer’ 

*TSBA Not Correct After READ DATA Command’ 

‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 

‘Reading Long Record Failed To Set RLL Bit In XSTO' 

"Reading Long Record Failed To Set RLS Bit In XSTO' 

‘Residual Byte Count Incorrect After Short Record Read’ 

Peogine Long Record Failed To Give Tape Status Alert’ 
SCIZ ‘Basic Read Data (Forward and Reverse)’ 


ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 


T24REST: 


043612 648: 


3SAVE THE REGISTERS 
#T24PACKET,R1 STA KET 
#100004, (R1)+ WRITE SUBSYSTEM MEM. WITH ACK, 
#T24DATA, (R1)+ SADDRESS OF CHARAISTICS DATA BLOCK 
+S Z EXTENDED ADDRESS 


(R1)+ IZE OF DATA BLOCK IN BYTES 
ATousrR, (R14 TADDRESS OF MESSAGE BUFFER 

+ 
#20..(R1)¢ ZLENGTH OF MESSAGE BUFFER 

te 
#0,(R1) :SELECT DRIVE ZERO 
#24. ,R2 ER OF LOCATIONS TO BE CLEARED 
#177777, T24BFR(R2) TALL ONES TO MESSAGE BUFFER 
=(R2) [NEXT LOCATION 
#0,R2 :CKECK FOR END OF LOOP 
64$ [KEEP GOING UNTIL DONE 


SEQ 0209 


eesti! 


root 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE SEQ 0210 

3889 046340 060207 RTS PC 3RETURN 
3890 
3891 
3892 046342 T24RT2: 
3893 046342 SAVREG sSAVE THE REGISTERS 
3894 046346 012701 043700 MOV #T24PK2,R1 sSTART OF THE PACKET 
3895 046352 012721 100206 MOV #100206, (R1)+ WRITE SUBSYSTEM MEM. WITH ACK, IE 
3896 046356 012721 043720 MOV il regh et (R1)+ sADDRESS OF DATA BLOCK 
3897 046362 005021 CLR (R1 EXTENDED ADDRESS 
3898 046364 012 000006 MOV He. cRI)s :SIZE OF DATA BLOCK IN BYTES 

99 046370 005021 CLR (R1)+ 
3900 046372 012701 043720 MOV ar2uere, R1 sPOINT TO DATA SEL AREA 
3901 046376 005021 CLR 
3902 046400 005011 CLR (MD 
3903 046402 000207 RTS PC zRETURN 
3904 046404 T24RT3: 

5 046404 SAVREG sSAVE THE REGISTERS 
3906 046410 012701 043710 MOV #T24PK3,R1 sSTART OF THE PACKET 
3907 046414 012721 000000 MOV #0, + CLEAR AREA OUT 
3908 046420 012721 000000 MOV #0,(R1)+ sADDRESS OF DATA BLOCK 

46424 005021 CLR (R1)+ sEXTENDED ADDRESS 
3910 046426 012711 000000 MOV #0,(R1) SIZE OF DATA BLOCK IN BYTES 
3911 046432 000207 RTS PC :RETURN 
3912 046434 ENDTST 
046434 L10052: 


046434 104401 TRAP CSETST 


--———_ + a — ——— 


F 1 
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TEST 5S: SPACE RECORDS SEQ 0211 
3914 .SBTTL TEST 5: SPACE RECORDS 
| He ¥ 
3917 :THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 
3918 ; RECORDS REVERSE P OSITION COMMANDS OPERATE PROPERLY WHEN SPACING 
3919 VER NORMAL A RECORDS, OPERATION WHEN SPACING OVER TAPE MARKS 
3920 tS VERIFIED 7h A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST 
| 3921 : SHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL 
3922 RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH 
3923 [OF THE SUBTESTS, THE TAPE IS ENTIRELY WRITTEN WITH RECORDS 
3924 3OF VARYING SIZES AND DATA CONTENT; THE FIRST 4 BYTES OF EACH 
3925 ZRECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER 
3926 ZEACH SPACING OPERATION, THE TAPE POSITION IS VERIFIED BY READING 
3927 ZTHE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH 
3928 :THE EXPECTED RESULT. 
3929 3 
3930 ; 
3931 “THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS 
3933 ; 
3934 ; 
3935 = 
3936 046436 BGNTST 
046436 1S:: 
3937 046436 012737 006446 002170 MOV #EPRT2,EPRTSW :SECONDARY ERROR MESSAGE 
3942 046444 004737 017364 JSR PC .KTOFF :DON'T NEED LOTS OF MEMORY 
3943 046450 012700 055150 MOV #T5T251D,RO ASCII MESSAGE TO IDENTIFY TEST 
3944 046454 004737 016600 JSR PC, TSTSETUP O INITIAL TEST SETUP 
3948 046460 012737 000005 002206 MOV #5. LOOPCNT < PERTORN 5 ITERATIONS 
24 
3947 : 
3948 ;TEST 5, SUBTEST 1 
3949 ; 
3950 
3951 SVERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH 
3952 ZTHE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF 
3953 ; THE VOLUME CHECK (VCK) FLAG IS SET. 
3955 3 
3956 s° 
3957 
3958 046466 T25LO0P: 
3959 arenes BGNSUB y>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
046466 104402 TRAP  C$BSUB 
3960 046470 004737 055166 JSR PC, T25REST 7SET COMMAND PACKET 
3961 046474 005037 054000 CLR TOSCNT [CLEAR THE RECORD COUNTER AREA 
3962 046500 004737 055260 JSR PC. OER T2 [SET UP OTHER COMMAND PACKET 
3963 046504 004737 055322 JSR T25RT3 [SET UP OTHER COMMAND PACKET 
3964 046510 012737 176750 054002 MOV #65000" T25DLY :SET UP LOOP COUNTER 
3966 SARA AAERAAAAAEAAEEAEAAEEAEAEAERERAAREAREKREREEEEE CREAR EEAREEREREEREE 
3967 ; 
3968 ;ISSUE CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


. 
© 
3970 FARRAR AAREAREAAAEEEAAAAEAEEAEAAAAARAAAAAAEARAAEAEAREAEAEREEREREREREEEEE 





os 


cso 





3972 046516 
3973 046522 
3974 Breage 


046600 
3983 046602 
3984 046602 
3985 046610 


0 
046636 


4008 046640 
6640 
4009 046642 


4016 046656 
voir | 


046660 
046662 
046664 


064737 
103427 


012727 


016501 
104455 


012124 


013737 
012704 


004737 


010001 
104456 


012126 


104406 


005237 
104456 


012136 
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016064 


000250 
002116 
177772 
177756 
054002 


002212 
000002 


002172 
053630 


010752 
002212 


011104 


002212 
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053650 


SEQ 0212 


5$: JSR PC, SOFINIT :D0 INITIALIZE ON CONTROLLER 
BCS 10$ R IF INIT WAS OK 
DELAY 250 “DELAY IF REQUIRED 
MOV #250, (PC)+ 
.WORD 0 
MOV LSDLY, (PC)+ 
.WORD 0 
DEC -6(PC) 
BNE .- 
DEC =22(PC) 
BNE - 
DEC T25DLY DEC DELAY COUNTER 
BNE 5$ R. IF LOOP IS REQUIRED 
INC TFLG :BUMP C 
MOV TSSR (R5),R1 S CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG SFATAL ERROR TSSR WAS NOT OK 
TRAP _— CSERDF 
.WORD 501 
“WORD  SFIERR 
ae “WORD  SFIMSG 
MOV UNITN, T25DSW :SET UP DRIVE NUMBER 
MOV #T25PACKET RG [SUBROUTINE NEEDS PACKET ADDRESS 
SAAR ARERERAEEEAERERAEAEREEAAEEREREERARAEERREARRRERREREREEREEEEEREREEREREE 
[WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
ITTITITITILTLITT TILE LT ELIT LETT LETT TTT TTT TTT TTT TTT 
JSR PC,WRTCHR TISSUE WRITE CHARACTERISTICS 
BCS 15$ :BR, IF COMMAND ISSUED OK 
INC FATFLG OUNT 
MOV RO,R1 [SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG [WRITE CHARACTERISTISC FAILED 
CSERHRD 
rEORD 502 
“WORD  WRTMSG 
“WORD  SFIMSG 
FRCAAAAAEERERAEEAARAREREEAAEEERAEAERARREAREREERAAEEREREEREREERREEKEREEE 
TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
I TTIIITILELILILE LETT TELL TELL LE TET TTT TT eee TTT TTT 
15$: CKLOOP 
TRAP — CS$CLP1 
JSR PC REWIND ZCALL TAPE REWIND COMMAND 
BCS 30$ :BR, IF NO PROBLEM 
MOV RO, R1 SSAVE TSS 
INC FATFLG ‘BUMP COUNT 
ERRHRD ERRNO, T25RWN,PKTSSR SREWIND NOT ACCEPTED 
RAP CSERHRD 
-WORD 503 
“WORD T25RWN 
“WORD PKTSSR 


H 1 
| TSV7? =_HARDWARE TESTS 1-8 MACRO M1113 25-MAY=82 09:19 PAGE 115-2 


TEST 5S: SPACE RECORDS SEQ 0213 
| 4017 046666 30$:  CKLOOP ZLOOP IF SELECTED 
aon 046666 104406 TRAP _— C$CLP1 
| 4019 FRA AAAAERAAAERARARRAEREEEEEREREEEEREEEEREEREREEREEEEEREREREREREREE 
4020 ; 
| 4021 ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
4023 ITIIITITILITILILILITIT TLL TL LITT TTT TTT ii Tree iii Tete tT 
4024 
| 4025 046670 013701 053660 MOV T25BFR+6,R1 :PICK UP XSTO 
4026 046674 010102 MOV R1,R2 :SET UP EXPECTED 
4027 046676 052702 000002 BIS #21T1,R2 3SET BOT BIT IN EXPECTED 
4028 046702 020102 CMP R1,R2 “DOES EXP = REC'D 
4029 046704 001406 BEQ 40$ :BR. IF EQUAL (OK) 
4030 046706 005237 002212 INC FATFLG UN 
4034 046712 ERRHRD ERRNO, T25B0T, EXPREC “TAPE NOT AT BOT AFTER REWIND 
046712 104456 TRAP  CSERHRD 
046714 000770 «WORD 504 
046716 054145 “WORD  T2S5B0T 
046720 015564 -WORD EXPREC 
4035 046722 40$:  CKLOOP :LOOP IF SELECTED 
046722 104406 TRAP _— C$CLP1 
4036 046724 012703 000400 MOV #256. ,R3 ZRECORD SIZE 
4037 046730 013737 003114 053752 MOV FREE, T25RB TSTARTING WRITE BUFFER ADDRESS 
4039 SAAR ERE REEREEREREEREEREEREAERAEEREEEEREEEEREREREERREEKEREREEEKE 
4040 : 
4041 [WRITE DATA,ACK,CVC=1 COMMAND 
4043 RRRERREREREREERRERERREEERRRERERRRR ERE E ERNE ERE 
4044 
4045 046736 012737 140005 053750 MOV #140005, -T25PK3 :WRITE DATA,ACK,CVC=1 COMMAND 
4046 046744 012704 053750 MOV #T25P SSET UP R4 WITH PACKET ADDRESS 
4047 046750 65$: 
4048 046750 010337 053756 MOV $2 ;SET UP RECORD SIZE IN PACKET 
4049 046754 013777 054000 134132 MOV TaSENT ar REE [LOAD UP RECORD COUNTER IN WRT BUFFER 
4050 046762 062737 000001 054000 ADD »T25CNT [GET READY FOR NEXT RECORD 
4051 046770 010465 000000 MOV 4 1SDB¢RS) ‘ISSUE COMMAND 
4052 046774 004737 016340 JSR AITF SWAIT FOR SSR TO SET 
053 047 016501 000002 MOV TSSR(R5S),R1 [GET TSSR CONTENTS 
54 047004 012702 000200 MOV #SSR,R2 SSET UP EXPECTED 
4055 047010 020102 CMP R1,R2 SARE THEY EQUAL 
4056 047012 001411 BEQ 75$ “BR, IF OK 
4057 047014 032701 000004 BIT #B1T2,R1 [CHECK FOR TAPE STATUS ALERT 
4058 047020 001014 BNE 120$ :BR, IF TSA IS SET (SUSPECT IS EOT) 
4059 047022 005237 002212 INC FATFLG BUMP 
4063 047026 ERRHRD ERRNO,WRTERR,PKTSSR TesR INCORRECT AFTER WRITE DATA 
047026 104456 TRAP  CSERHRD 
047030 000771 «WORD 505 
047032 005111 “WORD WRTERR 
047034 012136 “WORD PKTSSR 
4064 047036 75$:  CKLOOP :LOOP IF SELECTED 
047036 104406 TRAP — CS$CLP1 
465 047040 005203 INC R3 BUMP RECORD SIZE 
4066 047042 022703 001000 CMP #512. ,R3 SEND OF RECORD YET 
4067 047046 001340 BNE 65$ TBR, IF MORE RECORDS TO WRITE 
4068 047050 000415 BR 125$ SENOUGH RECORDS 
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| TEST 5S: SPACE RECORDS SEQ 0214 
| 4069 047052 1208: 
4071 FERRARA AREREEREREERRERERERERERERERERERREEEEEREREREEEREREREREREEE 
4072 : 
rs tt READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
4075 ITTIITIIIIIILILLLELILIT LETT LE LLT TELE TT Titi tei TTT TTT Tete 
4076 
4077 047052 013701 053660 MOV Te-ee Res, R1 QUICK ese FOR EOT SET 
4078 047056 01010 MOV SET. UP EXPECTED 
4079 047060 052702 000001 BIS #310, R2 :SET THE £OT BIT xsTo 
4080 047064 020102 CMP R1,R2 71S THE EOT wn SET IN XSTO 
| 4081 047066 001406 BEQ 125$ 3BR, IF SET (GOOD) 
4082 047070 005237 002212 INC FATFLG [BUMP COUNT 
4086 047074 ERRDF ERRNO, T25NET,EXPREC sDEVICE FATAL NOT EOT te ETC. 
047074 104455 TRAP CSERDF 
047076 000772 eWORD 506 
| 047100 054301 «WORD T2S5NET 
047102 015564 eWORD EXPREC 
ites 047104 125$: 
4089 FERRARA AERA REEREREEREEEREREREEEEEREREREERERRERERREREEREE 
4090 : 
103 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
4093 PT TITITTILLTTTITELELELET TLE ELE T TTT T TTT TTT TTT TTT 
4094 
4095 047104 004737 011104 JSR PC REWIND :CALL TAPE REWIND COMMAND 
409% 047110 103407 BCS 130$ BR, IF NO PROBLEM 
4097 047112 010001 MOV RO,R1 SAVE TSS 
4098 047114 005237 002212 INC FATFLG sBUMP COUNT 
4102 047120 ERRHRD ERRNO, T25RWN,PKTSSR sREWIND NOT ACCEPTED 
047120 104456 CSERHRD 
047122 000773 eWORD 507 
047124 054755 «WORD T2SRWN 
047126 012136 -WORD PKTSSR 
4103 047130 130$:  KLOOP ;LOOP IF SELECTED 
047130 104406 TRAP CSCLP1 
4104 047132 012737 000007 053650 MOV T25DSW :SET UP DRIVE NUMBER 
rH +4 047140 012704 053630 MOV FTDSPACAET, RS ; SUBROUT INE NEEDS PACKET ADDRESS 
4107 FERRARA RAERAEAEEREREEERERREREREEEEEREREREREEREEREERERERERKEEEE 
4108 : : 
rts 44 WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
4111 ITITTTITILITTLETLELET ELITE LETTE TTT TTT TTT TTT TTT Tee 
4112 
4113 047144 004737 010752 JSR PC ,WRTCHR s ISSUE WRITE errr tpt a 
4114 047150 103407 BCS 140$ :BR, IF COMMAND ISSUED 
4115 047152 005237 002212 INC FATFLG BUMP COUN 
4119 047156 010001 MOV RO,R1 3 SAVE CONTENTS OF TSSR 
4120 047160 ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC wenie 
047160 104456 CSERHRD 
| 047162 000774 TGORD 508 
047164 005054 -WORD WRTMSG 
047166 012124 -WORD SFIMSG 
4121 047170 140$: CKLOOP ;SCOPE LOOP 
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047170 164406 TRAP — C$CLP1 

4122 047172 005737 002216 TST EXTFEA ZCHECK FOR EXTENDED FEATURES 

4123 047176 001044 BNE 160$ 'BR IF SWITCH IS ON 

4125 047200 112737 000200 053761 MOVB #200, 125BS1 sWRITE MISCELLANEOUS CONT/READ STATUS 

4126 047206 112737 000010 053760 MOVB #10,125BS0 UNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 

4127 047214 012704 053740 MOV ar oSPe3e RG ‘URITE SUBSYS MEM PACKET 

4128 047220 010465 000000 MOV R4, TSDB(RS) S ISSUE COMMAND 

4129 047224 004737 016426 JSR PC; CHKTSSR ‘WAIT FOR SSR 

4130 047230 103407 BCS 156$ ‘BR, IF NO ERROR 

4131 047232 010001 MOV RO,R1 TERROR, SAVE TSSR 

4132 047234 005237 002212 INC FATFLG [BUMP COUNT 

4136 047240 ERRHRD ERRNO,T25SSR,PKTSSR ;TSSR NOT CORRECT TER WRT. soar > Yrs 
047240 104456 TRAP — C$ERH 
047242 000775 .WORD 509 
047244 054004 “WORD T25SSR 
047246 012136 “WORD PKTSSR 

4137 047250 150$:  CKLOOP :LOOP IF SELECTED 
047250 104406 TRAP — C$CLP1 

4138 047252 012737 000007 053650 MOV #7,725DSW ZSET UP DRIVE NUMBER 

4139 047260 012704 053630 MOV ATOSPACKET RG :SUBROUTINE NEEDS PACKET ADDRESS 

4141 Z RREEEEREEREREREREERREEEREEEREREREREAREEAEEEREEAEEEREEREERERERREKERKEEEE 

4142 : 

4143 SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

4145 [ANA NAENERHARENENAREENERERHERNRNERERAOREREREAREnEREENEREREETENERES 

4146 

4147 047264 004737 010752 JSR PC,WRTCHR ZISSUE WRITE CHARACTERISTICS 

4148 047270 103407 BCS 160$ :BR, IF COMMAND ISSUED OK 

4149 047272 005237 002212 INC FATFLG [BUMP COUNT 

4153 047276 010001 MOV RO,R1 [SAVE CONTENTS OF TSSR 

4154 047300 ERRHRD ERRNO,WRTMSG, SF IMSG ‘WRITE CHARACTERISTIS¢ FAILED 
047300 104456 CSERHRD 
047302 000776 TEORD 510 
047304 005054 “WORD WRTMSG 
047306 012124 “WORD  SFIMSG 

4155 047310 160$: CKLOOP :SCOPE LOOP 
047310 104406 TRAP — C$CLP1 

4156 047312 016501 000002 MOV TSSR(RS) RI :GET TSSR CONTENTS 

4157 047316 032701 000100 BIT #OFL,R1 ZCHECK FOR THE OFFLINE BIT SET 

4158 047322 001006 BNE 170$ BR, IF OFFLINE (GOOD) 

4159 047324 005237 002212 INC FATFLG [BUMP COUNT 

4163 047330 : ERRDF ERRNO, T25OFL,SFIMSG [OFF LINE SHOULD HAVE BEEN SET (BAD) 
047330 104455 TRAP CSERDF 
047332 000777 «WORD 511 
047334 055024 «WORD T250FL 
047336 012124 “WORD  SFIMSG 

4164 047340 170$:  CKLOOP :LOOP IF SELECTED 

nape 047340 104406 TRAP — C$CLP1 

4166 FARA RERERERAEAEERERAEREEEREREEHERERERAEEREREAEEREREREREREEEERREREREEE 

4167 : 

4168 [SPACE FORWARD COMMAND IN PLACE 

41 70 TT TTITTTILILETETE TEL TT TTT LTTE TTT TTT TTT TTT TTT TTT TTT TTT TTT Tee 

4171 


sitet es 
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TEST 5: SPACE RECORDS SEQ 0216 
4172 047342 012737 140010 053750 180$: MOV #140010, T25PK3 ;SPACE FORWARD COMMAND IN PLACE 
4173 047350 012737 000001 053752 MOV #1,T25RB NUMBER OF RECORDS TO SPACE 
4174 047356 012704 053750 MOV #T25PK3, RG 3R4 = POINTER TO PACKET 
4175 047362 010465 000000 MOV R4, TSDB(RS) s ISSUE COMMAN 
047 004737 016340 JSR PC, ,WAITF sWAIT FOR SSR TO SET 
4177 047372 016501 000002 MOV TSSR(RS) RI ‘GET TSSR Maly TS 
4178 047376 012702 100306 MOV #SSR'SC!OFL!BIT1!B1T2, R2" 3;SET Le EXPECTED 
047402 020192 CMP R1,R2 ae THEY E 
4180 047404 001406 BEQ ox" espe FUNCTION REJECT 
1 0474 005237 002212 INC FATFLG UN 
4185 047412 ERRHRD ERRNO,T25TM,PKTSSR :TSSR INCORRECT AFTER -~ MOTION CMD 
047412 104456 RAP CSERHRD 
047414 1000 TUORD 512 
047416 054212 «WORD T25TM 
047420 012136 -WORD PKTSSR 
4186 047422 190$: CKLOOP ;LOOP IF SELECTED 
0474 104406 TRAP CS$CLP1 
4187 047424 ENDSUB {>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
047424 L10072: 
047424 104403 TRAP CS$ESUB 
4188 047426 023727 002212 000017 CMP FATFLG,#15. 31S ERROR COUNT AT 25 
4189 047434 103402 BLO O99 ;BR, IF LESS THAN 25 
4190 047436 004737 017272 JSR PC, CKDROP TRY TO DROP THE UNIT 
4191 047442 999$: 


eo 
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4 
| 4204 047442 
047442 
047442 104402 
4205 047444 


4206 047450 
ry 3 4 047454 004737 


016064 


002212 
010001 


104455 


012737 
012704 


000007 
053630 


047 
ris 047504 
4225 047512 
42 


010752 
002212 


047540 012124 


a 
x 
o 


A ee 
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3+ 
;TEST 5, SUBTEST 2 
[VERIFIES THAT A SPACE RECORDS REVERSE COMMAND 


WITH 
:THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF 
; THE VOLUME CKECK (VCK) FLAG IS SET. 


TRAP 
7SET COMMAND PACKET 
JSR PCT SET UP OTHER COMMAND PACKET 
JSR PC, T25RT2 SET UP OTHER COMMAND PACKET 
PIPP PITT i tit iti it itiitiitititititiTy 


ISSUE CONTROLLER "'SOFT'’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


. 
. 
FRA ARAERERAREREEEEREREKEEREEEERERRERAERAEERERRERHEEEREREEEEE 


JSR PC, SOF INIT :b0 at ae son CONTROLLER 


JSR PC, T25REST 
SRTS 


BCS 10$ 3BR IF INIT 

INC FATFLG 28 co 

MOV RO,R1 SCONTENTS OF TSSR REGISTER 

ERRDF ERRNO,SFIERR,SFIMSG FATAL ERROR TSSR WAS a 
- WORD 
«WORD 
- WORD 

10$: MOV #7,T25D0SW :SET UP DRIVE NUMBER 


MOV #T25PACKET RS 
EPP PTTL Pri titi ii ti tit titi titi 


WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


° 
aca ae i ta A ahaa na ee 


JSR PC,WRTCHR 2 ISSUE WRITE CHARACTERISTICS 
BCS 15$ :BR. a ISSUED 


INC FATFLG 
MOV RO,R1 SAVE CONTENTS OF SSR 
ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC rene 


«WORD 


SERRA ERAEAEEAAEAARERAAEEEEAAAEARAEREEREERERAEEREEREERREEEEEEREEREREREEE 


TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 >>>>>>>>>>>> ar SUBTEST >>>>>>>>>>>> 


C$BSUB 


CSERDF 
513 

SFIERR 
SF IMSG 


; SUBROUTINE NEEDS PACKET ADDRESS 


CSERHRD 
514 


WRTMSG 
SF IMSG 


SEQ 0217 


. — Pr 
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TEST S: SPACE RECORDS SEQ 0218 
4246 SEERA AEAAEAREREEEREREEREREERREKREREREAREAEREEERREEERERERKEEKEREEREEE 
4247 
4248 047542 15$:  CKLOOP 
047542 104406 TRAP C$CLP1 
| 4269 047544 004737 011104 JSR PC REWIND ZCALL TAPE REWIND COMMAND 
4250 047550 103407 BCS 308 BR, IF NO PROBLEM 
4251 047552 010001 MOV RO,R1 :SAVE TSS 
| 4252 047554 005237 002212 INC FATFLG BUMP COUNT 
4256 047560 ERRHRD ERRNO, T2SRWN,PKTSSR ZREWIND NOT ACCEPTED 
047560 104456 TRAP  CSERHRD 
047562 001003 .WORD 515 
047564 054755 -WORD T25RWN 
047566 012136 “WORD  PKTSSR 
| 4257: 047570 30$:  CKLOOP ;LOOP IF SELECTCD 
047570 104406 TRA C$CL 
| 6258 047572 005737 002216 140$: TST EXTFEA :CHECK FOR EXTENDED FEATURES SW coven 
4259 04 047576 001044 BNE 160$ :6R IF SWITCH IS ON 
1 047 112737 000200 053761 MOVB #200, 125BS1 sWRITE MISCELLANEOUS CONT/READ STATUS 
4262 047606 112737 000010 053760 MOVB T25BS0 ZFUNCTION SELECTION BIT (TURN ON FXTFEA HW SWITCH) 
4263 047614 012704 05374 MOV Aaitey R4 [WRITE SUBSYS MEM PACKET 
4264 047620 010465 000000 MOV R4, TSDB(RS) : ISSUE COMMAND 
4265 047624 737 016426 JSR PC. CHKTSSR :WAIT FOR SSR 
4266 047630 103407 BCS 150$ :BR, IF NO ERROR 
4267 047632 010001 MOV RO,R1 ZERROR, SAVE TSSR 
4268 047634 005237 002212 INC FATFLG ‘BUMP COUNT 
2 047640 ERRHRD ERRNO, T25SSR,PKTSSR ZTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
047640 104456 TRAP  CSERHRD 
047642 001004 .WORD 516 
7644 054004 “WORD  T25SSR 
047646 012136 “WORD PKTSSR 
4273 047650 150$:  CKLOOP :LOOP IF SELECTED 
047650 104406 TRAP  CSCLP1 
4274 047652 1 2737 000007 053650 MOV #7,T25DSW :SET UP DRIVE NUMBER 
4275 047660 012704 053630 MOV ATOSPACKET RG ;SUBROUTINE NEEDS PACKET ADDRESS 
4277 SRRAAAARAEAEREEAEEAAREEREEEREEEEEEEEREEREERRAREEEERREREKERERERERREEE 
4278 5 
4279 ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
4281 + ReeRRHReeeeeeeRneeeeeeeeaneneneteneennnnnneneenenennenereeeere 
4282 
4283 047664 004737 010752 JSR PC,WRTCHR ZISSUE WRITE CHARACTERISTICS 
4284 047670 103407 BCS 160$ :BR, IF COMMAND ISSUED Ok 
4285 047672 605237 002212 INC FATFLG 
4289 047676 010001 MOV RO,R1 [SAVE CONTENTS OF TSSR 
047700 ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
047700 104456 CSERHRD 
047702 001005 TOORD 517 
047706 005054 “WORD WRTMSG 
047706 012124 ~WORD  SFIMSG 
4291 047710 160$:  CKLOOP :SCOPE LOOP 
47710 1046406 TRAP — CSCLP1 
4292 047712 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 
4293 047716 032701 000100 BIT #OFL,R1 ZCHECK FOR THE OFFLINE BIT SET 
4294 047722 001006 BNE 7BR, IF OFFLINE (GOOD) 
4295 047724 005237 002212 INC FATFLG ‘BUMP COUNT 
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| TEST 5S: SPACE RECORDS SEQ 0219 
4299 047730 ERRDF ERRNO, T250FL,SFIMSG jOFF LINE SHOULD HAVE BEEN SET (BAD) 
047730 104455 TRAP  C$ERDF 
047732 001006 .WORD 518 
047734 055024 “WORD T250FL 
047736 012124 -WORD  SFIMSG 
4300 047740 170$:  CKLOOP ZLOOP IF SELECTED 
| ws 047740 104406 TRAP C$CLP1 
4302 FERRARA AAE RARER ERAERERAAAE RARER RAEREEEREEREREREREERERERE 
4303 3 
| 420% ZSPACE REVERSE COMMAND IN PLACE 
4306 PT TTITITILELTTI TELE TTT TELE LTTE L TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
307 
4308 047742 012737 100410 053750 180$: MoV #100410, T25PK3 ;SPACE REVERSE COMMAND IN PLACE 
4309 047750 012737 000001 053752 MOV #1,T25RB [NUMBER OF RECORDS TO SPACE 
4310 047756 012704 053750 MOV aTDSbR RG :R4 = POINTER TO PACKET 
4311 047762 010465 000000 MOV R4, TSDB(RS) Z ISSUE COMMAND 
4312 047766 004737 016340 JSR PC. WAITF :WAIT FOR SSR TO SET 
4313 047772 016501 000002 MOV TSSR(RS) RI 7GET TSSR CONTENTS 
4314 047776 012702 100306 MOV #SSR'SC!OFL!BIT1!B1T2, R2" SET uP EXPECTED 
4315 050002 020102 CMP Ri R2 ;ARE THEY EQUA 
4316 050004 001406 BEQ 190$ :BR, IF OK ESP. FUNCTION REJECT 
4317 050006 005237 002212 INC FATFLG [BUMP COUNT 
4321 050012 ERRHRD ERRNO, T25TM,PKTSSR :TSSR INCORRECT AFTER TAPE MOTION CMD 
050012 104456 : TRAP CSERHRD 
050014 001007 «WORD 519 
050016 054212 “WORD T25TM 
050020 012136 “WORD PKTSSR 
4322 050022 190$:  CKLOOP ;LOOP IF SELECTED 
5 104406 TRAP — C$CLP1 
4323 050024 ENDSUB y>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
650024 110073: 
050024 104403 TRAP CSESUB 
4324 050026 023727 002212 000017 CMP FATFLG,#15. z1S ERROR COUNT AT 25 
4325 050034 103402 BLO 999$ :BR, IF LESS THAN 25 
4325 050036 004737 017272 JSR PC, CKDROP :TRY TO DROP THE UNIT 
4327 050042 999$: 


ae See Se ce Re rE ee NE ae a A en A TS EE, 
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4339 050042 


34 
4342 050054 


4350 050060 
1 050064 


4360 050112 


4 
4368 g20ti6 


4375 050132 
0132 
0134 


05 
050136 
050140 
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104402 


004737 


004737 
010001 
104455 


013737 
012704 


004737 


010001 
104456 
11 


016064 
002212 


002172 
053630 


010752 
002212 
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[TEST 5, SUBTEST 3 


;VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE 
sRECORD OFF BOT AND CAUSES BOT STATUS TO BE CLEARED. 


BGNSUB 


TRAP 

SET COMMAND PACKET 
JSR PC, T25RT2 SET UP OTHER COMMAND PACKET 
JSR PC,T25RTS :SET UP OTHER COMMAND PACKET 


SEAR REREREEEEKEREREERERERRREREREERERERREREEEREREERE 


ISSUE CONTROLLER "'SOFT'’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


: 
SERRA AEAEAERARAERREEEREEERERERERERRERERERERERKEREREREREREREEEREEEEEEE 


JSR PC, T25REST 


JSR PC, SOF INIT :b0 hte dee A CONTROLLER 

BCS 10$ BR IF INIT WAS OK 

INC FATFLG :8 co ‘te 

MOV RO,R1 :CONTENTS OF TSSR REGISTER 

ERRDF ERRNO,SFIERR,SFIMSG FATAL ERROR TSSR WAS a 
«WORD 
- WORD 
«WORD 

10$: MOV UNITN, T25DSW :SET UP DRIVE NUMBER 


MOV #T25PACKET,R4 


FERAAAARAAAEAARAREAEREEREREREERAEERERRAERAARERRERARERERERREREREREREEE 


WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


e 
FERRARA RAAAAARARARERREEEEEERERARRAEAREREREERERAEAREEREEREREREEEREEKRE 


JSR PC,WRTCHR ISSUE WRITE CHARACTERISTICS 


BCS 15$ :BR, IF COMMAND ISSUED OK 
FATFLG : COUNT 
MOV RO,R1 AVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG <ORITE CHARACTERISTISC FAILED 
TUORD 
WORD 
“WORD 


SRAAERAARAAAAEREREEREEEEERAEERAERAEERAARAEERERAERRERREEREREEREREREEKEE 


TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


° 
SRE AAERERAEREREE ARERR RERAAARERAREEREAAERERAREEERERRERAREREREREEe 





$>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


C$BSUB 


CSERDF 
520 

SFIERR 
SF IMSG 


SUBROUTINE NEEDS PACKET ADDRESS 


CSERHRD 
521 


WRTMSG 
SF IMSG 


SEQ 0220 


Se 
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SEQ 0221 


4382 

4383 050142 15$:  CKLOOP 
050142 1044 TRAP — C$CLP1 

4384 050 004737 011104 JSR PC REWIND :CALL TAPE REWIND COMMAND 

4385 050150 10340 BCS 30$ R, IF PROBLEM 

4386 050 010001 MOV RO,R1 :g TSSh 

4387 050154 005237 002212 INC FATFLG ‘BUMP COUNT 

4391 050160 ERRHRD ERRNG, T25RWN,PKTSSR ‘REWIND NOT ACCEPTED 
050160 104456 TRAP  CSERHRD 
050162 001012 «WORD 522 
050164 054755 “WORD T25RWN 
050166 012136 “WORD PKTSSR 

4392 050170 30$:  CKLOOP :LOOP IF SELECTED 

ie 050170 104406 TRAP _— C$CLP1 

4394 FARRAR RAEEAAEERRAREREERERERRAAERREREERERAEEREHREEREREEEEEEEEEEREE 

4395 : 

4396 ZREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

4398 ITITITITILIITILILL LITTLE LE TLE T iT Tei TTT TTT Tee 

4399 

4400 050172 013701 053660 MOV bt saa R1 sPICK UP xsTO 

4401 050176 010102 MOV R1,R :SET UP EXPECTED 

4402 050200 052702 000002 BIS #BIT1,R2 ‘SET BOT BIT IN EXPECTED 

4403 050204 020102 CMP R1,R2_ {DOES EXP = REC'D 

4404 050206 001406 BEQ 40$ :BR, IF EQUAL (OK) 

4405 050210 005237 002212 INC FATFLG l UN 

4409 050214 ERRHRD ERRNO, T25B0T, EXPREC STAPE NOT AT BOT AFTER REWIND 
050214 104456 TRAP CSERHRD 
050216 001013 .WORD 523 
050220 054145 “WORD T25B0T 
050222 015564 <WORD EXPREC 

4410 050224 40$: CKLOOP ;LOOP IF SELECTED 
050224 104406 TRAP _—CSCLP1 

4411 050226 012737 000001 053752 MOV #000001, 125RB ZNUMBER OF RECORDS TO SPACE OVER 

4413 SERRA ARAAAAREERAAAEEEEEREEEEERRERERAEEREEREEREEEERAEREREEEREEREEREREE 

4414 ; 

4415 TSPACE FORWARD,ACK,CVC=1 COMMAND 

4417 TT TITITITILITTTEL ELITE LE TELL TTT TTT T TTT TTT TTT 

441 

4419 050234 012737 140010 053750 MOV #140010, T25PK3 ZSPACE FORWARD,ACK,CVC=1 COMMAND 

4420 050242 012704 053750 MOV #T25PK3,R :SET UP R4 WITH PACKET ADDRESS 

4421 050246 65$: 

4422 050246 010465 000000 MOV R4, TSDB(RS) Z ISSUE COMMAND 

4423 050252 004737 016340 JSR PC WAITF sWAIT FOR SSR TO SET 

4424 050256 016501 000002 MOV TSSR(R5),R1 *GET TSSR CONTENTS 

4425 050262 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 

4426 050266 020102 CMP R1,R2 TARE THEY EQUAL 

4427 050270 001411 BEQ 75 :Bk, IF OK 

4428 050272 032701 000004 BIT #B1T2,R1 SCHECK FOR TAPE STATUS ALERT 

4429 050276 001006 BNE 75$ :BR, IF TSA IS SET (SUSPECT IS EOT) 

4430 050300 005237 002212 INC FATFLG : COUNT 

4434 050304 ERRHRD ERRNO, T25WDE,EXPREC STSSR INCORRECT AFTER READ DATA 
050304 104456 TRAP  CSERHRD 
050306 001014 : 524 





050310 

05031 
4435 050314 

050314 
bet | 050316 


34 

4453 030340 

050340 

050342 

050344 

050346 

4454 050350 

050350 

4455 050352 

4456 050356 
4457 


46 

4464 050364 
4465 050372 
4466 050400 


4477 050434 

0434 

0436 

050440 

0442 

4478 050444 

0444 

4479 050446 
04 


504 
4487 050466 





054065 
015564 


104406 


013701 


005237 
104456 
015564 
104406 


004737 
012737 


012737 


012136 
104406 


005237 
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053660 
000002 


002212 


055322 
000401 


140001 


000200 


002212 


132442 
000001 


002212 
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053756 


053750 
053752 


75$: 


120$: 


CKLOOP 


FEAR AAERAREAARARERREREAREAARERERAREAEARAERREEERARAREERERRREERERREEREEEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
FERRARA RARERRERREEEERERAERAREREREREREERERERAERRREREREREREEEE 


125$: 


CKLOOP 


JSR 
MOV 


T25BFR+6,R1 
#BIT1,R2 
R1,R2 


I FATFLG 
ERRHRD ERRNO, T258NC ,EXPREC 


PC, T25RT3 
#257. 12582 


FARA AREAARREEEERAREREREEEERRREREEEEERERRAREREERREERRERERERERREEREEE 


[READ DATA COMMAND IN PLACE 


. 
° 
SRRAAARAAEAEEAAAEEEREEAREEAEETREERERREREEREREERREREERERREEREREEKE HERE 


190$: 


ERRHRD 


CKLOOP 


ERRHRD 


#140001, T25PK3 
REE, Te5R6 
#T25PK3_R 

R4, rsoBing? 
PC. WAITF 
TSSR(R5) RI 
#SSR,R2 

1,R2 

190$ 


FATFLG 
ERRNO, RDERR,PKTSSR 


@FREE,R1 
RRS 
20 00s 


ERRNO. T2SWNG, EXPREC 


SEQ 0222 
«WORD T25WDE 
«WORD EXPREC 
LOOP IF SELECTED 
TRAP CSCLP1 
QUICK CHECK FOR BOT SET 
sSET UP_EXPECTE 
CLEAR THE BOT BIT (xSTO) 
21S THE EOT BIT sid IN XSTO 
BR, IF SET (GOOD 
BUMP COUNT 
BOT NOT CLEARED AFTER SPACE FROM BOT 
TRAP CSERHRD 
«WORD 525 
-WORD T258NC 
«WORD EXPREC 
TRAP CSCLP1 
CLEAN UP PACKET 
:SET THE CORRECT SIZE UP 
READ DATA COMMAND IN PLACE 
READ BUFFER ADDRESS TO PACKET 
3R4 = POINTER TO PACKET 
2 ISSUE COMMAND 
WAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
SET UP EXPECTED 
oo . THEY EQUAL 
7 i coun ESP. FUNCTION REJECT 
ZTSSR INCORRECT AFTER READ DATA CMD 
TRAP CSERHRD 
"WORD 6 
«WORD RDERR 
-WORD PKTSSR 


LOOP IF SELECTED 
TRAP CSCLP1 


2GET FIRST WORD FROM BUFFER 
fet UP EXPECTED 

WAS RECORD NUMBERED 1 
BR, in” CORRECT RECORD 


COUNT 
;SHOULD HAVE BEEN RECORD NUMBER 1 


—— 
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050466 104456 TRAP CSERHRD 
050470 001017 -WORD 527 
050472 054355 -WORD T25WNG 
050474 015564 -WORD EXPREC 
4488 050476 200$: CKLOOP 
050476 104406 TRAP C$CLP1 
4489 050500 ENDSUB {>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
050500 L10074: 
050500 104403 TRAP C$ESUB 
4490 050502 023727 002212 000017 CMP FATFLG,#15. ais ERROR COUNT AT 25 
4491 050510 103402 BLO 999$ IF LESS THAN 25 
4492 050512 004737 017272 JSR PC, CKDROP ony TO DROP THE UNIT 


4493 050516 999$: 


ea Slatl 
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04 
4505 050516 


rss 050530 


4517 050540 


050556 
$2es 050560 
4526 050566 
4527 


3 
4534 050572 
4535 050576 
36 050600 


104402 
004737 
004737 
004737 


004737 
010001 
104455 


013737 
012704 


004737 


010001 
104456 


012124 
104406 


016064 
002212 


002172 
053630 


010752 
002212 
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053650 


a 


STEST 5, SUBTEST 4 


;VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE BACK 
OVER THE FIRST RECORD ON TAPE. 


FARA AAREEEEEEEERERREREEEREREERAERERERERREEEEREERREERERERERREREREREEE 





[WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


° 
FRA AAAREAEEEREEEEEEEREEEERARAREREEREREREREEEEERRERREREEEREREREE 


PEAR RAAAAAAEAAAAEAAEEAAEEEAEEAAEEAEERAEEAAEERAEKERERAEEEREREEAEEEREEEEE 


TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


BGNSUB j>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
“"" TRAP ss C$BSUB 
JSR PC, T25REST 3SET COMMAND PACKET 
JSR PC,T25RT2 SET UP OTHER COMMAND PACKET 
JSR PC, T25RTS 3SET UP OTHER COMMAND PACKET 
FEAR ERARAAREREAREEAEEEEEEEEARAEREERERARAEEREREERRRERERRREREEREREEEE 
+ ISSUE CONTROLLER ‘'SOFT'’ INITIALIZE - CARRY BIT CLEAR IF ERROR 
PITITITIIITITITITII TIT I ITLL T TT LIi TTL iLL Liti tL ct ELL LL 
JSR PC, SOFINIT 300 tart ca ON CONTROLLER 
BCS 20$ 3;BR IF INIT WAS OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG S FATAL ERROR TSSR WAS a = cosnes 
MOOR 528 
eWORD SFIERR 
eWORD SFIMSG 
20$: MOV UNITN, T25DSW *SET UP DRIVE NUMBER 
MOV #T25PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


JSR PC,WRTCHR ISSUE WRITE CHARACTERISTICS 

BCS 25$ :BR. IF COMMAND ISSUED OK 

INC FATFLG OUNT 

MOV RO,R1 SAVE CONTENTS OF TSSR 

ERRHRD ERRNO, WRTMSG, SF IMSG SWRITE CHARACTERISTISC raise 

CSERHRD 
WORD 529 
«WORD WRTMSG 
«WORD SFIMSG 
258: CKLOOP ;LOOP IF SELECTED 

TRAP CSCLP1 


SEQ 0224 


ee ee ee 
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4547 : 
| 4548 JAAR EAAAAEAREREREERARERAEREEEEERAEERERREEEEEEEEEERAEREREREEEE 
4549 
4550 050620 004737 011104 JSR PC REWIND :CALL TAPE REWIND COMMAND 
4551 050624 103407 BCS 308 7BR, IF NO PROBLEM 
4552 050626 010001 MOV RO,RI SSAVE TSS 
4553 050630 005237 002212 INC FA ‘BUMP COUNT 
4557 050634 ERRHRD ERRND” T2SRWN,PKTSSR SREWIND NOT ACCEPTED 
050634 104456 TRAP CSERHRD 
050636 001022 .WORD 530 
050640 054755 “WORD T25RWN 
050642 012136 “WORD PKTSSR 
4558 050644 30$:  CKLOOP :LOOP IF SELECTED 
wine 050644 104406 TRAP _—C$CLP1 
4560 SERA AAEAREAAERAEEEEEREEEEEERREREERAEEKEAEKERAEREREEEREREREREEEEEEREKEREE 
4561 ; 
456 SREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
4564 SRRRRRERERRRRRRRRERERERRERERER EERE RRR ERERE ERE E EEE EEEEe 
4565 
4566 050646 013701 053660 MOV T25BFR+6,R1 :PICK UP XSTO 
4567 050652 010102 MOV R1,R2 [SET UP EXPECTED 
4568 050654 052702 000002 BIS #BIT1,R2 ise! BOT BIT IN EXPECTED 
4569 050660 020102 CMP R1,R2 DOES EXP = REC'D 
4570 050662 001406 BEQ 40$ , IF EQUAL (OK) 
4571 050664 005237 002212 INC FATFLG ‘8 T 
4575 050670 ERRHRD ERRNO, T25ROT, EXPREC [TAPE NOT AT BOT AFTER REWIND 
050670 104456 TRAP  CSERHRD 
050672 001023 .WORD 531 
050674 054145 “WORD T25B0T 
050676 015564 “WORD EXPREC 
4576 050700 40$:  CKLOOP :LOOP IF SELECTED 
un 050700 104406 TRAP — C$CLP1 
4578 aaa teal iaaaaia ea iaiiniiiannaate 
4579 
4580 TISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
4581 :B1T 15 SETS DIRECTION - O=FORWARD 1=REVERSE 
4583 s aniesiheletdesatetatnashentetatbiitthitetmnrneniniontininaibiniteteaiaaliniieteimeciainaiainiait 
4584 
4585 050702 012703 000001 MOV #000001,R3 ZNUMBER OF RECORDS TO SI ACE FORWARD 
4586 050706 004737 010556 JSR PC, SPACE CALL SPACE COMMAND 
4587 050712 103410 BCS 50$ :CHECK FOR ERRO 
4588 050714 016501 000002 MOV TSSR(RS),R1 2GET TSSR CONTENTS 
4589 050720 005237 002212 INC FATFLG 
4593 050724 ERRHRD ERRNO, T25WDE,SFFMSG {SPACE FORWARD FAILED 
050724 104456 TRAP — CSERHRD 
050726 001024 «WORD 532 
050730 054065 “WORD  T25WDE 
050732 012172 -WORD  SFFMSG 
4594 050734 50$:  CKLOOP sLOOP IF SELECTED 
050734 104406 TRAP — C$CLP1 
4595 050736 012737 000001 053752 MOV #1,T25RB ZNUMBER OF RECORDS TO SPACE OVER 


4597 FARRAR AREEEREREARAAEAEEEAEAAEERERARAEAHRERAREEAEEARREREEEREREEREREEEEE 
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005237 
104456 


012136 
1016 104406 


012703 
013737 


012737 


005237 


051100 104456 


012136 
104406 


005237 


104456 
001027 


=30 
RYVRRVANVSSKRVSSAN 


3 

N Ww 
Soooooooooooo 
MAA AAAAAA AAI 
a a a a st 


aang ide eta eet 


140410 
053750 
000000 
000200 


002212 


000400 
003114 


140001 
0 


000200 


002212 


131776 
000000 


002212 
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053750 


053752 


053750 


SSPACE REVERSE,ALK,CVC=1 COMMAND 


a 
SERA AAAAAREEAAERRAAEEREREREEERRERERERERERERREREREREERERERREEEEEREEE 


MOV #140410, T25PK3 
ios MOV #T25PK3_RG 

MOV R4, TSDB(RS) 

JSR “WA 

MOV TSSR(R5),R1 

MOV #SSR,R2 

CMP R1,R2 

BEQ 75$ 

INC FATFLG 

ERRHRD ERRNO, T25WDE,PKTSSR 
75$:  CKLOOP 
120$: 

MOV #256. ,R3 

MOV FREE, T25RB 


2SPACE REVERSE ,ACK,CVC=1 COMMAND 
SET UP R4 WITH PACKET ADDRESS 


2 ISSUE COMMAND 
WAIT FOR SSR TO SET 


ZARE ino EQUAL 


3BUMP COUNT 
zTSSR INCORRECT AFTER READ _ 


FARRAR AEEARERERERAEEEEEEEARAEREEERRREEREREEREERERREREEKKEEREKEEKEE 


[READ DATA,ACK.CVC=1 COMMAND 


= 
° 
FERRARA AEREREKEEEREEERREREEREEERERREREEREERERREREREEEREEREEEEREREE 


MOV #140001, T25PK3 
165$: MOV #T25PK3_R4 

MOV R3,125S 

MOV R4.7SDB(R5) 

JSR PC. WAITF 

MOV TSSR(RS),R1 

MOV R,R2 

CMP R1,R2 

BEQ 176$ 

INC FATFLG 

ERRHRD ERRNO,RDERR,PKTSSR 
170$:  CKLOOP 

MOV aFREE,R1 

MOV #0,R2- 

CMP R1.R2 

BEQ 200$ 


INC FATFLG 
ERRHRD ERRNO, T25WNG,EXPREC 


TRA CSERHRD 
WORD 533 
«WORD T25WDE 
-WORD PKTSSR 

:LOOP IF SELECTED 
TRA? CSCLP1 

RECORD SIZE 

STARTING READ BUFFER ADDRESS 

sREAD DATA,ACK,CVC=1 COMMAND 

SET UP R4 WITH PACKET ADDRESS 

SET UP RECORD SIZE IN PACKET 

2 ISSUE COMMAN 

WAIT FOR SSR TO SET 

7GET TSSR CONTENTS 

SET UP EXPECTE 

ZARE IF OK EQUAL 

:BUMP COUN 

TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 534 
-WORD RDERR 
«WORD PKTSSR 


;LOOP IF SELECTED 
RAP CSCLP1 


T 
GET FIRST WORD FROM BUFFER 
:SET uP EXPECTED 
WAS RECORD NUMBERED 1 
eR. IF a RECORD 


COUN 
:SHOULD HAVE BEEN RECORD NUMBER 1 
TRAP CSERHRD 
-WORD 535 
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51136 054355 «WORD T25WNG 


0 
051140 015564 ~WORD EXPREC 
1142 200$:  CKLOOP 
051142 104406 TRAP CSCLP1 
51144 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
051144 L10075: 
051144 104403 TRAP C$ESUB 
51146 023727 002212 000017 CMP FATFLG,#15. 31S ERROR COUNT AT 25 
51154 103402 BLO 999$ sBR, IF LESS THAN 25 
31128 004737 017272 9995 JSR PC, CKDROP ;TRY TO DROP THE UNIT 








cere} 
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| 4659 3+ 


4660 : 
| rere: s TEST 5, SUBTEST 5 

466 ‘VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE A 

4664 ‘MULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE 

4665 [MAX IMUM NUMBER OF RECORDS WRITTEN ON THE TAPE, 

4666 ‘WHICH EVER IS LESS. 

4667 3 

4668 3 

4669 3 

‘en : 

4672 031166 BGNSUB y>>>>>>>>>>>> eesin SUBTEST >>>>>>>>>>>> 
051162 104402 TRAP C$BSUB 

4673 051164 004737 055166 JSR PC, T25REST 3SET COMMAND PACKET 

4674 051170 004737 055260 JSR PC, T25RT2 ;SET UP OTHER COMMAND PACKET 

4675 051174 004737 055322 JSR PC, T25RT3 ;SET UP OTHER COMMAND PACKET 

4676 051200 013737 054000 053776 MOV T25CNT, T25CN2 ;HOLD NUMBER OF RECORD 

4677 051206 162737 000002 053776 . SUB ;ACTUAL NUMBER OF RECORDS ON TAPE 

pe th 051214 013737 054000 054002 MOV T25CNT, T2SDLY ;SET UP REWIND DELAY COUNTER 

4680 ; PRRASASALAAALLSLALLALELLLELER EEE EEE ESE RCE EET EEE ERE ERT ERTS E TS 

4681 5 . 

rrr) Zs ISSUE CONTROLLER ‘'SOFT'’ INITIALIZE = CARRY BIT CLEAR IF ERROR 

4684 Seeketeeeneeees PAAAALAAAALAASLLALLLALSELESE EEE EES EEE EET EET RTT eT TP a SS 

4685 

4686 051222 004737 016064 10$: JSR PC,SOFINIT 3D0 INITIALIZE x" CONTROLLER 

4687 051226 103427 BCS 20$ ‘BR IF INIT WA 

4688 051230 DELAY 250 sWAIT ABOUT .25 SECONDS 
051230 012727 000250 MOV #250, (PC)+ 
051234 000000 WORD 

51236 013727 002116 MOV LSDLY, (PC)+ 

051242 000000 WORD 
051244 005367 177772 DEC -6(PC) 
051250 001375 BNE 74 
051252 005367 177756 DEC =22(PC) 
051256 001367 BNE 720 

4689 051260 005337 054002 DEC T25DLY ;DEC COUNTER 

4690 051264 001356 BNE 10$ 3BR, IF MORE LOOPS REQUIRED 

4691 051266 016501 000002 MOV TSSR(R5),R1 sCONTENTS OF TSSR REGISTER 

4692 051272 005237 002212 INC FATFL ;BUMP 

4696 051276 ERRDF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
051276 104455 TRAP CSERDF 
051300 001030 eWORD 536 
051302 003650 -WORD SFIERR 
051304 012124 -WORD SFIMSG 

4697 051306 20$: 

4698 051306 013737 002172 053650 MOV UNITN, T25DSW 3SET UP UNIT NUMBER 

ry +44 051314 012704 053630 MOV AT25PACKET, RG : SUBROUT INE NEEDS PACKET ADDRESS 

4701 SAAR AAAEEEEEEAREAAAEE HAAR EAEEEEERERERAEEREERAEEREEREE 

4702 ; 

4703 SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


4704 ; 
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4705 FERRARA AAAEREE EERE EEERERERARRAEEEEERREEREREEREEHEERERERERERERERS 
4706 
4707 051320 004737 010752 JSR PC ,WRTCHR ZISSUE WRITE CHARACTERISTICS 
4708 051324 103407 BCS 25¢ :BR, IF COMMAND ISSUED Ok 
4709 051326 005237 002212 I FATFLG ‘BUMP COUNT 
4713 051332 010001 MOV RO,R1 SSAVE CONTENTS OF TSSR 
4714 051334 ERRHRD ERRNO,WRTMSG, SF IMSG ‘WRITE CHARACTERISTISC FAILED 
051334 104456 CSERHRD 
051336 001031 TeoRD 537 
051340 005054 -WORD WRTMSG 
051342 012124 .WORD SFIMSG 
4715 051344 25$:  CKLOOP :LOOP IF SELECTED 
051344 104406 TRAP  C$CLP1 
4717 JAAR ARREEEAEEEERERRAREEEEEEREEEREKEEERERAEREREEERREEREEREEREEEREKEE 
4718 3 
é719 ZISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
4721 TT IITLILILILILILE LETTE TELE LITT T TTT TTT TTT TTT TTT TTT TTT TT 
4722 
4723 051346 004737 011104 JSR PC REWIND CALL TAPE REWIND COMMAND 
4724 051352 103407 BCS 30$ 7BR, IF NO PROBLEM 
4725 051354 010001 MOV } i SAVE Ts$ 
4726 051356 005237 002212 INC FATFLG ZBUMP COUNT 
4730 051362 ERRHRD ERRNO, T2SRWN,PKTSSR eREUIND NOT ACCEPTED 
051362 104456 TRAP  CSERHRD 
051364 001032 «WORD 538 
051366 054755 .WORD T25RWN 
051370 012136 .WORD PKTSSR 
4731 051372 30$:  CKLOOP :LOOP IF SELECTED 
051372 104406 RAP C$CLP1 
4732 051374 013701 053776 MOV T25CN2,R1 ZNUMBER OF RECORDS ON TAPE 
4733 051400 012702 177776 MOV #65534. ,R2 sMAX IT CAN SPACE OVER 
4734 051404 020201 CMP R2,R1 WHICH VALUE CAN WE USE 
4735 051406 003002 BGT 46$ ‘BR, IF # WRITTEN > 64K 
736 051410 010103 MOV R1,R3 :# WRITTEN CAN BE USED 
4737 051412 000401 BR 7$ ; ON 
4738 051414 010203 46$: MOV R2,R3 [USE MAX NUMBER 
4739 051416 162703 000001 47$: SUB #1,R3 3DON'T GO ALL THE WAY YET 
4740 051422 010337 053752 MOV R3.T25RB [NUMBER OF RECORDS TO SPACE OVER 
4742 SERRA AEAEEEAEEEAEEEEEEEEEEAERAERAERAEEAEREEERERERERERREREREEEEEEEEREE 
4743 : 
4746 ZSPACE FORWARD,ACK,CVC=1 COMMAND 
4746 UTITITITELETTTETELET TELE TEE T TTT TT TTT TTT TTT TTT TTT TTT TT 
747 
4748 051426 012737 140010 053750 MOV #140010, 125PK3 sSPACE FORWARD,ACK,CVC=1 COMMAND 
4749 051454 012704 053750 a MOV #T25PK3.R [SET UP R4 WITH PACKET ADDRESS 
4751 051440 013737 053776 054002 MOV T25CN2. T25Ly ZNUMBER OF RECORDS USED AS DELAY COUNTER 
4752 051446 010465 000000 MOV R4,TSDB(R TISSUE C 
4753 051452 004737 016340 67$: JSR PC.WAIT i :WAIT FOR SSR TO SET 
4754 051456 016501 000002 MOV TSSR(RS) RI ‘GET TSSR CONTENTS 
4755 051462 012702 000200 MOV #SSR,R2 7SET UP EXPECTED 
4756 051466 020102 CMP R1,R2 SARE THEY EQUAL 
4757 051470 001425 BEQ 75$ :BR, IF OK 


Cer NN AMD IR Se raat § 
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SEQ 0230 





| 
| 4758 051472 DELAY 250 DELAY .25 SECONDS 
| 051472 012727 000250 MOV #250, (PC)+ 
051476 000000 . WORD 
| 051500 013727 002116 MOV LSDLY, (PC)+ 
051504 000000 .WORD 0 
051506 005367 177772 DEC -6(PC) 
| 051512 001375 BNE - 
051514 005367 177756 DEC =22(PC) 
051520 001367 BNE .-20 
4759 051522 005337 054002 DEC T25DLY ;BUMP DOWN COUNTER 
4760 051526 001351 BNE 67$ ‘BR, IF NOT AT END OF DELAY 
4761 051530 005237 002212 INC FATFLG ‘BUMP COUNT 
4765 051534 ERRHRD ERRNO, T25WDE,PKTSSR sTSSR INCORRECT AFTER READ DATA 
051534 104456 TRAP  CSERHRD 
051536 001033 «WORD 539 
051540 054065 “WORD T25WDE 
051542 012136 "WORD PKTSSR 
4766 051544 75$: CKLOOP ;LOOP IF SELECTED 
051 104406 TRAP _—C$CLP1 
4767 051546 012703 010000 MOV #4096. ,R3 :RECORD SIZE 
ares 051552 013737 003114 053752 MOV FREE, T25RB sSTARTING READ BUFFER ADDRESS 
4770 FARRER AEERERREEEREREEEREEREEEEEREARREARERREEREEEERREERERREREREREREEE 
4771 ; 
pi hks sREAD DATA,ACK COMMAND 
4774 SRRERRERRRAREREREREEE REE EERERRRRRR EERE E ORE R EERE EERE EEER EES 
4775 
4776 051560 012737 100001 053750 MOV #100001, T25PK3 ;READ DATA,ACK COMMAND 
4777 051566 012704 053750 165$: MOV #125PK3,R4 [SET UP R4 WITH PACKET ADDRESS 
4778 051572 010337 053756 MOV R3, 1258 :SET UP RECORD SIZE IN PACKET 
4779 051576 010465 000000 MOV RG. TSDB(RS) S ISSUE COMMAN 
4780 051602 004737 016340 JSR PC WAITF [WAIT FOR SSR TO SET 
4781 051606 016501 000002 MOV TSSR(RS) RI [GET TSSR CONTENTS 
4782 051612 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 
4783 051616 020102 CMP R1,R2 TARE THEY EQU. 
4784 051620 001411 BEQ 170$ :BR, IF OK 
4785 051622 032701 000004 BIT #B1T2,R1 [CHECK FOR TAPE STATUS ALERT 
4786 051626 001006 BNE 170$ TIF SET ALL IS WELL 
4787 051630 005237 002212 INC FATFLG [BUMP COUNT 
4791 051634 ERRHRD ERRNO, RDERR,PKTSSR *TSSR INCORRECT AFTER READ DATA 
051634 104456 TRAP  CSERHRD 
051636 001034 «WORD 540 
051640 005204 "WORD RDERR 
051642 012136 “WORD PKTSSR 
4792 051644 170$:  CKLOOP SLOOP IF SELECTED 
051644 104406 TRAP —CSCLP1 
4793 051646 017701 131242 MOV a@FREE,R1 :GET FIRST WORD FROM BUFFER 
4794 051652 013702 053776 MOV Teste, R2 :SET UP EXPECTED 
4795 051656 162702 000001 SUB ;SHOULD BE LAST RECORD 
4796 051662 020102 CMP 4 RE [WAS RECORD NUMBERED R 
4797 051664 001406 BEQ [BR, IF CORRECT RECORD 
4798 051666 005237 002212 INC FATFLG [BUMP COUNT 
4802 051672 ERRHRD ERRNO, T25WNG,EXPREC [SHOULD HAVE BEEN RECORD NUMBER 1 
051672 104456 TRAP CSERHRD 
051674 001035 .WORD 541 
051676 054355 “wORD  T25WNG 
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TEST 5: SPACE RECORDS 


051700 
4803 051702 


4804 051704 
Bat 704 


051704 

4805 531206 
4806 051 

4807 O81716 

4808 051722 


015564 

104406 

104403 

023727 002212 000017 
10340 

004737 017272 


200S: 


999$: 


M2 
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CKLOOP 

ENDSUB 

CMP FATFLG,#15. 
999$ 


BLO 
JSR PC ,CKDROP 


«WORD EXPREC 
TRAP CSCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10076: 


TRAP C$ESUB 
aoe ERROR COUNT AT 25 
IF LESS THAN 25 
‘TRY TO DROP THE UNIT 


SEQ 0231 


--—--- OC [C+ -- 
i 
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| TEST 5: SPACE RECORDS SEQ 0232 
| 4811 3+ 
4812 3 
| 4813 ;TEST 5, SUBTEST 6 
4815 ‘VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE A 
4816 “MULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE 
4817 sMAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE 
4818 WHICH EVER IS LESS. 
4819 : 
4820 : 
i) | 
4823 yeah es BGNSUB 3>>>>>>>>>>>> wa. 2 nee >>>>>>>>>>>> 
051722 104402 TRAP C$8SUB 
4824 051724 004737 055166 JSR PC, T2SREST ;SET COMMAND PACKET 
4825 051730 013737 054000 053776 MOV T25CNT, T25CN2 ;SET UP RECORD COUNTER 
4826 051736 004737 05526 JSR pe” Te5RT 2 SET UP OTHER COMMAND PACKET 
4827 051742 004737 055322 JSR RTS SET UP OTHER COMMAND PACKET 
+856 051746 013737 054000 054002 MOV TSSCMT TSDLY ;SET UP REWIND DELAY COUNTER 
4830 FARA AAAAAAAAAAARAAAARAEAERERAERAEEAERARRARARERERAEEEREREREEEREREREREE 
4831 : 
rit s ISSUE CONTROLLER ‘‘SOFT'’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
4834 PITITITIIITITIITTIIITT TIT TTTI Ti TTiTitTiiititiiiitiiit itt etek 
4835 
4836 051754 004737 016064 10$: JSR PC, SOF INIT :D0 INITIALIZE ON CONTROLLER 
4837 051760 103427 Bcs -. 20$ ;BR IF INIT WAS OK 
4838 051762 DELAY 250 :WAIT ABOUT .25 SECONDS 
051762 012727 000250 MOV #250, (PC)+ 
051766 000000 -WORD O 
051770 013727 002116 MOV LSDLY,(PC)+ 
051774 000000 -WORD 0 
051776 5367 177772 DEC -6(PC) 
052002 001375 BNE -* 
pegoee 5367 177756 DEC =-22(PC) 
052010 001367 BNE -720 
rt 4 089012 5337 054002 DEC T25DLY ;DEC COUNTER 
0 052016 001356 BNE 10$ BR, IF MORE LOOPS REQUIRED 
apa 052020 016501 000002 MOV TSSR(RS),R1 sCONTENTS OF TSSR REGISTER 
4842 052024 005237 002212 INC FATFLG ;BUMP COUNT 
4846 052030 ERRDF ERRNO, SFIERR,SF IMSG ;FATAL ERROR TSSR WAS “ OK 
052030 104455 TRAP CSERDF 
052032 001036 eWORD 542 
052034 003650 “WORD SFIERR 
052036 012124 eWORD SFIMSG 
rr ot4 052040 013737 002172. 053650 20$: MOV UNITN, T25DSW ;SET UP UNIT NUMBER 
pros 052046 012704 053630 MOV #T25PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 





FRRARAAAAAAARAEAEREAEEERERERERERAEARAARAERAEEREREARREREEERREREEAEREEE 


WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


° 
PERERA AERA REREEEEEAAEEAAEREEEEAEEERERARAAEAERAEEEAEEAEERREREEE 





Pitt ican ae aes ai 


8 
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TEST 5: SPACE RECORDS SEQ 0233 
4857 052052 004737 010752 JSR PC, WRTCHR ZISSUE WRITE CHARACTERISTICS 
4858 052056 103407 BCS 25$ :BR, IF COMMAND ISSUED OK 
4859 052060 005237 002212 INC FATFLG UMP COUNT 


28 
sSAVE_CONTENTS OF TSSR 
WRITE CHARACTERISTISC FAILED 


4863 052064 010001 MOV RO,R1 
ERRHRD ERRNO,WRTMSG,SFIMSG 


104456 TRAP CSERHRD 

052070 001037 «WORD 543 
052072 005054 -WORD WRTMSG 
052074 012124 eWORD SFIMSG 

4865 052076 25$: CKLOOP ;LOOP IF SELECTED 

on56 052076 104406 TRAP C$CLP1 

4867 FRA RAEEEREREREREREEEEEREEEEEREREEEERREREEREERERREEREREE 

4868 ; 

1895 zs ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

4871 ITT TIIITILILILILLIT LTT TTT LTT LI TELL Titi iii Tritt TTT ti 


00 004737 011104 JSR PC REWIND 3CALL TAPE REWIND COMMAND 
04 NO PROBLEM 


21 
4874 052104 103407 8CS 30$ :BR, IF 
4875 052106 010001 MOV RO,R1 SSAVE TSSR 
4876 052110 005237 002212 INC FATFLG ‘BUMP COUNT 
4880 052114 ERRHRD ERRNO, T25RWN,PKTSSR SREWIND NOT ACCEPTED 
052114 104456 TRAP  CSERHRD 
052116 001040 .WORD 544 
052120 054755 “WORD T2SRWN 
05212 012136 ~ WORD PKTSSR 
4881 052124 30$:  CKLOOP ;LOOP IF SELECTED 
‘ee 052124 104406 TRAP — C$CLP1 
4883 PERERA AAREREARAEEAEREEEAEERREEAERERRERERRRERREEERAERRREREEREREEE 
4884 : 
4885 ZREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
4887 I TTIITTITILILILE LETT LET LTTE LETTE TTT TTT TTT TT TTT TTT 
4888 
4889 052126 013701 053660 MOV T25BFR+6,R1 :PICK UP XSTO 
4890 052132 010102 MOV R1,R2 :SET UP oP PECTED 
4891 052134 052702 000002 BIS #B1T1,R2 ‘SET BOT BIT IN EXPECTED 
4892 052140 020102 CMP R1,R2- :DOES EXP = REC'D 
4893 052142 001406 BEQ 40$ , IF EQUAL (OK) 
4894 052144 005237 002212 INC FATFLG ‘8 COUNT 
4898 052150 ERRHRD ERRNO, T2SBOT,EXPREC STAPE NOT AT BOT AFTER REWIND 
052150 104456 TRAP CSERHRD 
052152 001041 «WORD 545 
052154 054145 “WORD T2580T 
052156 015564 “WORD EXPREC 
4899 052160 40$:  CKLOOP ;LOOP IF SELECTED 
052160 104406 TRA CSCLP1 
4900 052162 013701 053776 MOV T25CN2,R1 ;NUMBER OF RECORDS ON TAPE 
052166 012702 177776 MOV #65536. ,R2 [MAX IT CAN SPACE OVER 
4902 052172 020201 CMP WH H VALUE CAN WE US 
4903 052174 003002 BGT Re ght . IF # WRITTEN > 64K 
4904 052176 01010 MOV af R3 WRITTEN CAN BE USED 
4905 052200 000401 BR 478 
4906 052202 010203 46$: MOV R2,R3 ‘USE MAX NUMBER 


4907 052204 47$: 
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TEST 5: SPACE RECORDS 
4908 052204 010337 053752 
4909 


4933 059396 
4934 052330 


4954 052406 


012737 


001425 
012727 
000000 


1 
010337 


140010 
0 


000200 


000250 
002116 
177772 
177756 
054002 
002212 


053776 


177776 


140410 
0 


016340 
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053750 


054002 


053750 


054002 


MOV R3,T25RB 


SEQ 0234 


NUMBER OF RECORDS TO SPACE OVER 


SEARAAAAAAAAAAARAAAEAAAAAEAEEARARARARAERERAEARAEREHEEREAEEREREEEREREE 


SPACE FORWARD,ACK,CVC=1 COMMAND 


° 
FERRARA RAAAEAAAARAEARERAERARERRARAEAERAERERERRERERERORERRERRERERREEEE 


#140010, ne 
MOV #T25PK3,R 


MOV RG rspatRS) 
MOV T25¢N2, Te5DLy 
48$: JSR PC ,WAITF 
MOV TSSR(RS) ,F1 
MOV #SSR,R2 
CMP R1 RS. 
BEQ 50$ 
DELAY 250 
DEC T25DLY 
BNE 48$ 
INC FATFLG 
ERRHRD ERRNO, T25WDE,EXPREC 
50$:  CKLOOP 
MOV T25CN2,R1 
MOV #65534. 4R2 
CMP R2,R 
BGT Gg! 
MOV R1,R3 
BR 60$ 
55$: MOV ReR3 
60$: SUB #1,23 
MOV R3.T25RB 


Aa » aarti bat CvC=1 COMMAND 
7SET UP R4 WITH PACKET ADDRESS 
21SS € OMMAND 


U 
iSET UP DELAY aed 


TARE ig EQUAL 


:BR, 
;WAIT 2. SECONDS 
MOV peice 


LSDLY,(PC)+ 
-WORD 0 
DEC -6(PC) 
BNE -- 
DEC -22(PC) 
BNE -~ 
;DEC THE DELAY COUNTER 
3BR, IF COUNTER HASN'T EXPIRED 
78 COUNT 
sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 546 
- WORD T25WDE 
-WORD EXPREC 
CS$CLP1 


at 
hove on CAN BE USED 


: SUSE MA NUMBER 
:DON'T 60 ALL THE WAY YET 
;NUMBER OF RECORDS TO SPACE OVER 


FERRARA EAARAARAEAEEREEERERERRERRRARERAEARAEERAEREREEEREEEEREEKEEREE 


TSPACE REVERSE,ACK,CVC=1 COMMAND 


° 
FREER AAAEEARERERAEAAREAEAAAAEERAREERAEEREREEEREEAEEREERERRERERRERKEEE 


MOV Abs yy 1gsPK3 
MOV #T25PK3,R 

MOV R4 TSpBCRS) 
MOV 


T25CN2, T25DLY 
70$: JSR PC, WAI ITF 


treat pre VeRnse ,ACK .Cycs 1 COMMAND 
:SET U P R4 WITH PACKET ADDRESS 
. COMMAND 


SET UP COUNTER 
‘wAIT. FOR SSR TO SET 





. 3 
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TEST 5S: SPACE SEQ 0235 

4955 052412 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 

4956 052416 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 

4957 052422 020102 CMP R1,R2 TARE THEY EQUAL 

4958 052424 001425 BEQ 75$ BR, IF OK 

4959 052426 DELAY 250 [WAIT ABOUT .25 SECONDS 
052426 012727 000250 MOV #250, (PC)+ 
052432 000000 .WORD 0 

52434 013727 002116 MOV LSDLY,(PC)+ 

052440 000000 .WORD 0 
052442 005367 177772 DEC -6(PC) 
052446 001375 BNE - 
052450 005367 177756 DEC =22(PC) 
052454 001367 BNE .-20 

4960 052456 005337 054002 DEC T25DLY :BUMP COUNTER DOWN 

4961 052462 001351 BNE 70$ ‘BR, IF COUNTER HASN'T EXPIRED 

4962 052464 005237 002212 INC FATFLG :8 

4966 052470 ERRHRD ERRNO, T25WDE,EXPREC STSSR INCORRECT AFTER READ DATA 
052470 104456 TRAP  CSERHRD 
052472 001043 .WORD 547 
052474 054065 “WORD T25WDE 
052476 015564 “WORD EXPREC 

4967 052500 75$: CKLOOP ;LOOP IF SELECTED 
052500 104406 TRAP _— C$CLP1 

4968 052502 012703 010000 MOV #4096. .R3 ZRECORD SIZE 

rhs 44 052506 013737 003114 053752 MOV FREE, T25RB sSTARTING READ BUFFER ADDRESS 

4971 FERRARA ERAEREREREREREREKEEEEREREREREREEERRERERREREREREEEKEE 

4972 : 

4975 [READ DATA,ACK COMMAND 

4975 TTI TTILELILILITILEL ELLE LETTE LETTE TTT TTT TTT TTT TTT TTT 

497 

4977 052514 012737 100001 053750 MOV #100001, T25PK3 :READ pata. ACK COMMAND 

4978 052522 012704 053750 165$: MOV #T25PK3_R SSET UP R4 WITH PACKET ADDRESS 

4979 052526 012700 177777 MOV #177777, RO iSET ALL ONES INTO CORRECT REGISTER 

4980 052532 737 017512 JSR PC,FILLMEM FILL MEMORY WITH RECORD SIZE 

4981 052 010337 053756 MOV R3,125S iSET UP RECORD SIZE IN PACKET 

4982 052542 010465 000000 MOV R4.TSDB(RS) TISSUE COMMAN 

4983 052546 004737 016340 JSR PC; WAITF [WAIT FOR SSR TO SET 

4984 052552 016501 000002 MOV TSSR(R5),R1 *GET TSSR CUNTENTS 

4985 052556 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 

4986 052562 020102 CMP 1,R2 ARE THEY EQUAL 

4987 052564 001411 BEQ 170$ “BR, IF OK 

4988 052566 032701 000004 BIT #BIT2,R1 [CHECK FOR TAPE STATUS ALERT 

4989 052572 001006 BNE 170$ ‘BR, IF BIT SET 

4990 052574 005237 002212 INC FATFLG ‘BUMP COUNT 

4994 052600 ERRHRD ERRNO, RDERR,EXPREC STSSR INCORRECT AFTER READ DATA 
052600 104456 TRAP  CSERHRD 
052602 001044 «WORD 548 
052604 005204 “WORD RDERR 
052606 015564 <WORD EXPREC 

4995 052610 170$:  CKLOOP ;LOOP IF SELECTED 
052 10440 TRA CSCLP1 

4996 052 017701 130276 MOV aFREE,R1 GET FIRST WORD Fron BUFFER 

4997 052616 012702 000001 MOV #1,R2 :SET UP EXPECTED 

4998 052622 020102 CMP R1.R2 WAS RECORD NUMBERED R3 

4999 052624 001406 BEQ 200$ ‘BR IF CORRECT RECORD 
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5000 052626 
5004 052632 
052632 
052634 
052636 
052640 

5005 052642 
052642 

5006 052644 
052644 
52644 

5007 052646 


5010 052662 


005237 
104456 


0 
015564 
104406 


104403 


0 
004737 


002212 


002212 
017272 


| 
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INC FATFLG 
ERRHRD ERRNO, T25WNH,EXPREC 


200$: CKLOOP 
ENDSUB 


000017 CMP FATFLG,#15. 
999$ 


JSR PC, CKDROP 
999$: 


SEQ 0236 
3;BUMP COUNT 
;SHOULD HAVE BEEN RECORD NUMBER 1 
TRAP CSERHRD 
«WORD 549 
«WORD T25WNH 
«WORD EXPREC 
TRAP CS$CLP1 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10077: 
TRAP CSESUB 


31S ERROR COUNT AT 25 
2BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 


5042 052724 
tore 052732 





104402 
004737 
004737 
004737 


004737 


010001 
104455 


013737 
012704 


004737 


012124 
104406 
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016064 
002212 


002172 
053630 


010752 
002212 


F 3 
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053650 


SEQ 0237 
3+ 
TEST 5, SUBTEST 7 
:VERIFIES THAT SPACE RECORDS lias” ISSUED WHILE THE 


TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION 
;WiTH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 


BGNSUB g>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


TRAP C$BSUB 
JSR PC, T25REST SET COMMAND PACKET 
JSR PC,T25RT2 SET UP OTHER COMMAND PACKET 
JSR PC, T25RTS SET UP OTHER COMMAND PACKET 


J ERARARARARARARAAARAREAAAEERERAEAAARAAARREARRERARARREREREAEEAEEREAEREREERE 


ISSUE CONTROLLER ‘‘SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


° 
FARRAR AAAAAAAAEEAERARERERAAEEAARRAERAAERAEEREERREREERERERERERREREREEE 


JSR PC, SOF INIT 


:D0 INITIALIZE ON CONTROLLER 
BCS 208 ‘BR IF INIT WAS OK 
INC FATFLG [BUMP COUNT 
MOV RO,R1 SCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG [FATAL ERROR TSSR WAS NOT OK 
TRAP  CSERDF 
.WORD 550 
“WORD SFIERR 
“WORD SFIMSG 
20$: MOV UNITN, T25DSW :SET UP UNIT NUMBER 


MOV #T2SPACKET,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 


J ERARAAARERAAAAEAAAAEREAAEAEAEAERRERERAEARAEERAREEAAERRERRERREEREEREEEE 


WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


e 
FERRARA RAAAAERAAAEAEEAEEAAEAEEAERERREREEERARERAREEEERAEREEEREEREREEEE 


JSR PC,WRTCHR TISSUE WRITE CHARACTERISTICS 
BCS 25$ :BR, IF COMMAND ISSUED OK 


INC FATFLG BUMP COUN 
MOV RO,R1 SAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG, SF IMSG sWRITE CHARACTERISTISC os 


CSERHRD 
WORD 551 
-WORD WRTMSG 
«WORD SFIMSG 
25$: CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 


PAAR AAR AAA AAA AAAAAAAEAAEAAAERAARAAAARAREAAAERAAAARAAHEAKEEEAAAREEREEE Eee 


as 


— 


— 


TEST 5: SPACE RECORDS 


053042 
5094 053044 
053044 
3844 053046 


5098 

5099 

5100 

5101 

5102 

5103 053054 

5104 053062 

5105 053066 

5106 053066 

5107 053072 

5108 053076 

5109 053102 

5110 053106 

5111 053110 

5112 053112 

5116 053116 
053116 
053120 
053122 


005237 
104456 
001050 
054755 
012136 


104406 


013701 


104406 
012737 


054065 
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011104 


002212 


053660 
000002 


002212 


000001 


100410 
053750 
000000 
100206 


002212 


pei eraprre tein eee 
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053752 


053750 


: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
° 
FERRARA RAERAAREREAARERAREREARAERERRAREAERREAEREREREREEREREEREREREREES 


30$: 


JSR PC REWIND 
BCS 308 
MOV RO,R1 
INC 


FATFLG 
ERRHRD ERRNO, T2SRWN,PKTSSR 


CKLOOP 


TAPE abd by COMMAND 
a he ROBLEM 


BUMP COUNT 
REWIND NOT ACCEPTED 


FERRARA AAAREAEREEEEEEEREREERERERERERERERAEERKEREEREEEEREEEEEEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


é 
FERRARA ARAREEAEARAERAEREERERAEERAREEREREREREREREREEREREEERKERKKEREERE 


40$: 


MOV i ial 


R1,R 
BIS #B1T1,R2 
CMP R1,R2 
40$ 


FATFLG 
ERRHRD ERRNO, T25B0T ,EXPREC 


CKLOOP 
MOV #1,T25RB 


TRAP CSERHRD 
WORD 552 
«WORD T25RWN 
«WORD PKTSSR 

LOOP IF SELECTED 
TRAP CSCLP1 

sPICK UP XSTO 

:SET UP EXPECTED 

SET BOT BIT IN pecs 

;DOES EXP = REC'D 

:BR, IF EQUAL (OK) 

TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
WORD 553 
WORD T25B0T 
-WORD EXPREC 


LOOP IF SELECTED 


TRAP CSCLP1 
NUMBER OF RECORDS TO SPACE OVER 


FERRARA AREREEREREEREREEAEAEERRERAEEREAREREEERERAEREEREEREERERREKEKREE 


SSPACE REVERSE.ACK COMMAND 


’ 
FARRAR ARAAEREAEEERERAEEEERREEREREAEAAEEEREEEERERERREERERERERREKEKEEEEE 


65$: 





MOV #100419, La 
MOV #T25PK5,R 


MOV RG, Tsbe (as) 


MOV TSSR(R RS), R1 
MOV #SSR!SC!BIT1!B1T2,R2 
R1,R2 


BEQ 75$ 
INC FATFLG 
ERRHRD ERRNO, T25WDE,PKTSSR 


3SPACE REVERSE ACK COMMAND 
SET UP R4 WITH PACKET ADDRESS 


s ISSUE COMMAND 
sWAIT FOR SSR_TO SET 
GET TSSR CONTENTS 
:SET UP EXPECTED 
7 ARE a A EQUAL 


: COUNT 
:TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
RD 554 


WO 
WORD T25WDE 


SEQ 0238 


oe - 


| H 3 
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TEST 5S: SPACE RECORDS SEQ 0239 
053124 012136 .WORD PKTSSR 
$117 05312 75$:  CKLOOP ;LOOP IF SELECTED 
ow 053126 104406 TRAP — C$CLP1 
5119 FURR AARAAAAAAAARAEREEREEAEAARERRRARRAERERREEEEEREEEREERREREREEEEE 
5120 ; 
3121 [READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
5123 ITITIIIITILILILILITITTTL TTT LLL TLiTi LTT iit iiTT iit tiie ee 
5124 
5125 053130 013701 053660 MOV T25BFR+6,R1 :GET XSTO STATUS WORD 
5126 053134 010102 MOV R1,R :SET UP EXPECTED 
5127 053136 052702 002000 BIS #B1T10,R2 :SET THE NEF BIT 
5128 053142 020102 CMP R1,R2 TARE THEY EQUAL 
5129 053144 001406 BEQ 170$ ‘BR, IF EQUAL (GOOD) 
5130 053146 005237 002212 INC FATFLG : COUNT 
5134 053152 ERRHRD ERRNO, T25NEF ,EXPREC [NEF SHOULD BE SET 
053152 104456 TRAP CSERHRD 
053154 001053 «WORD 555 
053156 054613 [WORD  T25NEF 
053160 015564 “WORD EXPREC 
5135 053162 170$:  CKLOOP 
053162 104406 TRAP — C$CLP1 
5136 053164 ENDSUB 
053164 L10100: 
053164 104403 RAP  C$ESUB 
5137 053166 023727 002212 000017 CMP FATFLG,#15. z1S ERROR COUNT AT 25 
5138 053174 103402 BLO 99 7BR, IF LESS THAN 25 
5139 053176 004737 017272 JSR PC, CKDROP sTRY TO DROP THE UNIT 
5140 053202 999$: 
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| TEST S$: SPACE RECORDS SEQ 0240 
| -§142 :+ 
| 5143 : 
atte sTEST 5, SUBTEST 8 
5146 ; VERIFIES THAT A oo ky RECORDS REVERSE COMMAND THAT 
5147 iC CUASES THE TAPE TO RUN INTO BOT (WITH — TAPE NOT 
5148 s INITIALLY AT BOT) CAUSES A TAPE STATUS ALERT 
5149 TE MINATION AND SETS THE REVERSE INTO BOT (RIB) 
5150 : STATUS BIT 
5151 3 
5152 : 
3138 | 
5155 053202 ; BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
053202 75.8: 
053202 104402 TRAP c$BSuUB 
5156 053204 004737 055166 JSR PC, T2S5REST ;SET COMMAND PACKET 
5157 053210 004737 055260 JSR PC,T25RT2 SET UP OTHER COMMAND PACKET 
3128 053214 004737 055322 JSR PC, T25RTS SET UP OTHER COMMAND PACKET 
5160 SERA AAAAEAAEEAAAAEAREEREREREEEARERERERERARERERERERERRERERRERRERERERE 
5161 3 
3166 ; ISSUE CONTROLLER ‘‘SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
5164 WITISITIIITITITITITITI TILT TLL TLL LLL LLL LLL LEE LET 
5165 
5166 053220 004737 016064 JSR PC,SOFINIT 300 rl ON CONTROLLER 
5167 053224 103407 BCS 20$ 2BR IF INIT WAS OK 
5168 053226 005237 002212 INC FATFLG C 
5172 053232 010001 MOV RO,R1 CONTENTS OF TSSR REGISTER 
5173 053234 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS ~“ a. 
053234 104455 CSERDF 
053236 001054 reoRD 556 
053240 003650 -WORD SFIERR 
053242 012124 ~ WORD SF IMSG 
giv 053244 013737 002172 053650 20$: MOV UNITN, T25DSW sSET UP UNIT NUMBER 
3176 053252 012704 053630 MOV #T25PACKET,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 
5178 FARRAR ARAEAAEAAREREEAEREEEERRAEKEEREREREREEERERREEEREREEREEEREERERERE 
5179 : 
3180 sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
5182 PITITITIIITIIITITIT ITLL TLL LLL iLL LLL LLL ELE 
5183 
5184 053256 004737 010752 JSR PC,WRICHR s ISSUE WRITE CHARACTERISTICS 
5185 053262 103407 BCS 25$ 'BR, IF COMMAND ISSUED Ok 
5186 053264 005237 002212 INC FATFLG 38 COUNT 
5190 053270 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
5191 053272 ERRHRD ERRNO, WRTMSG,SFIMSG SWRITE CHARACTERISTi SC vee 
053272 104456 CSERHRD 
053274 001055 ye 557 
053276 005054 -WORD WRTMSG 
053300 012124 -WORD SFIMSG 
5192 053302 25$: CKLOOP ;LOOP IF SELECTED 
053302 104406 TRAP CSCLP1 


193 


a 
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TEST 5: SPACE RECORDS SEQ 0241 

5194 PETTITTE TTT TTT TTT irri i iii tii iii iii iiiiiiiiiiiiiiiy 

5195 : 

3136 ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

5198 ITTIIITITILL LIL LILT LIL LT LLL LTTE LTT ii TTT itt TTT Tete 

5199 

5200 053304 004737 011104 JSR PC REWIND ;CALL TAPE REWIND COMMAND 

5201 053310 103407 BCS 308 78R, IF NO PROBLEM 

5202 055312 010001 ‘ 3SAVE TSS 

5203 053314 005237 002212 INC FATFLG ;BUMP COUNT 

5207 053320 ERRHRD ERRNO, T2SRWN,PKTSSR sREWIND NOT ACCEPTED 
053320 104456 TRAP CSERHRD 
053322 001056 -WORD 558 
053324 054755 -WORD T2SRWN 
053326 012136 -WORD PKTSSR 

5208 053330 30$: CKLOOP ;LOOP IF SELECTED 

52 053330 104406 TRAP CSCLP1 

5210 RPE E ESET ET ITE TTT TTT TEP PrP rrr titi iit iti tii iti titi iitiiiiiity 

5211 ; 

25i¢ sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

5214 TTTITITITITILILELE LETTE TTL T TTT TTT TTT TTT TTT TTT TTT 

5215 

5216 053332 013701 053660 MOV a R1 sPICK UP xSTO 

5217 053336 010102 MOV R1,R2 SET uP EXPECTED 

5218 053340 052702 000002 BIS aeitl. R2 SET BOT BIT IN | pre 

5219 053344 020102 CMP soens EXP = REC’ 

5220 053346 001406 BEQ 40 ted BR, IF EQUAL (OK) 

5221 053350 005237 002212 INC FATFLG : 

5225 053354 ERRHRD ERRNO, 1T25B0T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
053354 104456 TRAP CSERHRD 
053356 001057 eWORD 559 
053360 054145 ; -WORD T25B0T 
053362 015564 eWORD EXPREC 

5226 053364 40$: CKLOOP 
053364 104406 TRAP CSCLP1 

3667 053366 012737 000001 053752 MOV #1,T25RB sNUMBER OF RECORDS TO SPACE OVER 

256) LRRAAAAAAAAAEREAEREEAREREREERARRERREREREEREEEERAERREEERREREREREEREEE 

5230 3 

353! 3SPACE FORWARD, IE,ACK,CVC=1 COMMAND 

3537 PTT TITITITILTLTLTLELTTTL LETTE LETT TTT TTT TTT TTT TTT TTT 

5235 053374 012737 140210 053750 MOV oieeie. T25PK3 sSPACE FORWARD, IE,ACK,CVC=1 COMMAND 

5236 053402 012704 053750 MOV #T25PK3,R4 3SET UP R4 WITH PACKET ADDRESS 

5237 053406 010465 000000 MOV R4, TSDBCRS) : ISSUE COMMAND 

5238 053412 004737 016340 JSR PC ,WAITF SWAIT FOR SSR TO SET 

5239 053416 016501 000002 MOV TSSR(RS), R1 :GET TSSR CONTENTS 

5240 053422 012702 000200 MOV #SSR,R2 sSET UP EXPECTED 

5241 053426 020102 CMP R1,R2 SARE THEY EQUAL 

5242 053430 001406 BEQ 75$ :BR, IF OK 

5243 053432 005237 002212 INC FATFLG ;BUMP COUNT 

5247 Oo ates ERRHRD ERRNO, T25WDE ,EXPREC sTSSR INCORRECT AFTER READ DATA 


104456 TRAP CSERHRD 
WORD 560 








053442 
053444 
5248 053446 
053446 
3538 053450 


5270 033550 
ag?) po eoee 
536 


2 

5281 053564 
5282 053566 
53566 


53566 
5283 poe300 


054065 
015564 


104406 
012737 


104456 
001061 
054065 
015564 
104406 


005237 
104456 
001062 
054613 
015564 
104406 


004737 
103002 
000137 


104432 
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000020 


100610 
053750 


100204 


002212 


053666 
000001 


002212 


002212 
017272 


016546 
046466 


kK 3 
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053752 


053750 


000017 


75$: 


CKLOOP 
MOV 


T25WDE 
EXPREC 


o WORD 
- WORD 


sLOOP IF SELECTED 


#20,T25RB 


TRAP 
NUMBER OF RECORDS TO SPACE OVER 


CSCLP1 


FERRARA AAEEAAEEREEAEEREEERERERAEREREREERERRERREAEEEEEEREREEREEEEREREE 


ZSPACE REVERSE,IE,ACK COMMAND 


° 
FERRARA AAAERAEAEEEAEEEERERRERERERRERAEREEEERREAERERREREREREREREEEEREEEE 


175$: 


180$: 


ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 
ENDSUB 





otgoeig. T25PK3 
#T25PK3,R4 
R4, TSpB{RS) 


WA 

TSSR( 

Beate, R2 
R1,R2 


FATFLG 
ERRNO, T25WDE ,é XPRE~ 


3 SPACE tg IE ,ACK COMMAND 
7SET UP R4 WITH PACKET ADDRESS 


3 ISSUE COMMAND 

WAIT FOR SSR _TO SET 
GET TSSR CONTENTS 
3SET UP EXPECTED 

3 ARE Hag & QUAL 


BUMP COUNT 
zTSSR INCORRECT AFTER a 


LJ 


CSERHRD 
WORD 561 
«WORD T25WDE 
«WORD EXPREC 
LOOP IF SELECTED 
TRAP CSCLP1 
T25BFR+14,R1 sGET XST3 STATUS WORD 
R1,R2 :SET UP EXPECTED 
#B1T0,R2 SET THE RIB BIT 
1,R2 sARE THEY EQUAL 
180$ : IF EQUAL (GOOD) 
FATFLG : COUN 
ERRNO, T25NEF ,EXPREC sNEF SHOULD BE SET 
TRAP CSERHRD 
WORD 562 
WORD , T2SNEF 
«WORD ‘EXPREC 


TRAP CSCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10101: 


care.é.at5. 
PC ,CKDROP 


4 TSTLOOP 
T25L00P 
TST 


TRAP 
21S ERROR COUNT AT 25 
BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


C$ESUB 


300 WE NEED TO ITERATE TEST 
BR, IF NO LOOP REQUIRED 
EXECUTE AGAIN 


sALL DONE THIS TEST 


TRAP CSEXIT 


SEQ 0242 


Pee ee pn ee ee ee ed eee ee 





ee a ee 
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053620 061532 «WORD L10071-. 


Ss 


mM 3 
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TEST 5: SPACE RECORDS SEQ 0244 


5296 3+ 

3537 LOCAL STORAGE FOR THIS TEST 

5300 053630 «=<. +10>8177770 

5302 053630 T25PACKET: COMMAND PACKET FOR TEST 

5303 053630 100004 WORD 100004 WRITE CHARACTERISTICS COMMAND, WITH ACK 
5304 053632 053640 «WORD T2S5DATA ADDRESS OF CHARACTERISTICS BLOCK 
5305 053634 000000 -WORD 0 

5306 053636 000010 -WORD 8. STARTING VALUE OF BLOCK SIZE 
5307 053640 T25DATA: CHARACTERISTICS DATA BLOCK 
5308 053640 053652 WORD T2S5BFR ZADDRESS OF MESSAGE BUFFER 
5309 053642 000000 -WORD 0 

5310 053644 000012 -WORD 10. ;LENGTH OF MESSAGE BUFFER 
5311 053646 000 -WORD 0 

5312 053650 000000 T25DSW: .WORD 0 ;SELECT DRIVE ZERO 

aai7 053652 T2SBFR: .BLKW #5. gpa oSAGE BUFFER 

aai2 WRITE SUBSYSTEM MEMORY COMMAND PACKET 

5318 053740 : =<. +10>8177770 

5320 053740 T25°K2: 

5321 053740 100006 -WORD 100006 WRITE SUB SYS MEM COMMAND, AND ACK 
5322 053742 053760 »WORD T25BF2 ZADDRESS OF SELECT BLOCK DATA 
5323 053744 000000 «WORD 0 

335e 053746 000006 eWORD 6. sSIZE OF DATA PACKET 

5329 053750 T25PK3: 

5330 053750 100005 -WORD 100005 ;READ COMMAND, AND ACK 

5331 053752 T25RB: 

5332 053752 003114 T25WB: .WORD FREE ADDRESS OF WRITE BUFFER 

5333 053754 000000 eWORD 0 

5334 053756 000000 T25SZ2: .WORD 0 SIZE OF BUFFER (EXTENT) 

5335 EVEN 

5336 i 

5337 : 

5338 Z 

5339 053760 T25BF 2 

5340 053760 010 T258S0: .BYTE 3;BSELO AREA 

5341 053761 200 T258S1: .BYTE 200 ;BSEL1 AREA 

5342 053762 0000006 T25S2: .WORD sSEL 2 AREA 

eee7 053764 000060 T2583: .WORD sDATA AREA 

5345 : 

5346 .EVEN 

eure TAPE MOTION PACKET COMMAND VALUES 

5349 053766 100005 T25RN: .WORD 100005 sREAD DATA (NEXT) 

2320 053770 100405 T25WDR: .WORD 100405 sREAD DATA RETRY 

$2) 053772 102005 T25CON: .WORD 102005 sWRITE CONTINOUS 

2336 053774 177777 «WORD 177777 END OF DATA 

5354 
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2326 ge7rrs 060000 T25CN2: .WORD 0 COUNTER FOR RECORDS 
5357 000000 T25CNT: .WORD 0 sCOUNTER FUR RECORDS 
ea28 rit 000000 T25DLY: .WORD 0 ;COUNTER FOR RECORDS 
5360 3+ 
5361 ;LOCAL TEXT MESSAGES FOR TEST 
$i ‘ 
5364 054004 127 122 111 T25SSR: .ASCIZ ‘WRITE SUBSYSTEM Miscellaneous need Status Failed’ 
5365 054065 124 123 123 T25WDE: .ASCIZ ‘TSSR Not Correct After POSITION ( SPACE) Command‘ 
5366 05414 124 141 160 T25B80T: .ASCIZ ‘Tape Not At BOT After REWIND Command’ 
5367 054212 124 123 123 T25TM: .ASCIZ ‘TSSR Not Correct After POSITION (Space Command) Reject’ 
5368 054301 127 162 151 T2SNET: .ASCIZ ‘Write Tape, Status Alert, But No EOT Sensed’ 
5369 054355 123 160 141 T25WNG: .ASCIZ ‘Space Forward Failed To Position On Correct Record’ 
5370 054440 123 160 141 T25BNC: .ASCIZ ‘Space Forward, From BOT, Failed To Clear BOT Indication’ 
5371 054530 123 160 141 T25WNH: .ASCIZ ‘Space Reverse Failed To Position On Correct Record* 
5372 054613 123 160 141 T2SNEF: .ASCIZ ‘Space Reverse, At BOT, Failed To Set NEF (xSTO)' 
5373 054673 123 160 141 T25RIB: .ASCIZ ‘Space Roveree. Into BOT, Failed To Set ,RIB (xST3)° 
5374 054755 122 145 167 T2SRWN: .ASCIZ ‘Rewind (POSITION) Command Not Acc cepted’ 
5375 055024 104 162 151 T2SOFL: .ASCIZ ‘Drive 7 Select Failed To Set ‘OFL’’ In TSSR* 
5376 055077 124 123 123 T25WDC: .ASCIZ ‘TSSR Not Correct After READ DATA Command’ 
5377 055150 123 160 141 TST25I1D: eASCIZ ‘Space Records’ 
5378 EVEN 
Ht : 
5381 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
oeee sWRITE SUBSYSTEM MEMORY COMMAND 
5384 i 
5385 
5386 055166 T25REST: 
5387 055166 SAVREG SAVE THE REGISTERS 
5388 055172 012701 053630 MOV #T25PACKET,R1 :START OF THE PACKET 
5389 055176 012721 100004 MOV #100004, (R1)+ sWRITE SUBSYSTEM MEM. WITH ACK 
5390 055202 012721 053640 MOV #T25DATA, (R1)+ ADDRESS ' Ml see DATA BLOCK 
5391 055206 005021 CLR gs SEXTENDED ADDRESS 
5392 055210 012721 000012 MOV #10.,(R1)+ :SIZE OF DATA BLOCK IN BYTES 
5393 055214 012721 053652 MOV #TOSGFR, (R1)+ TADDRESS OF MESSAGE BUFFER 
5394 055220 005021 CLR 
5395 055222 012721 000024 MOV #20, ARDS LENGTH OF MESSAGE BUFFER 
5396 055226 005021 CLR 
5397 055230 012711 000000 MOV i, RY sSELECT DRIVE ZERO 
5398 055234 012702 000030 MOV #24. ,R2 SNUMBER OF LOCATIONS TO BE CLEARED 
5399 055240 012762 177777 053652 64$: MOV #172777 T25BFR(R2) TALL —. MS MESSAGE BUFFER 
5400 055246 005742 TST -(R2 NEXT LOC gies 
5401 055250 022702 000000 CMP #0 §2 R2 AT ZERO YET 
5402 055254 001371 BNE 64 4$ ‘KEEP GOING UNTIL DONE 
rs 055256 000207 RTS RETURN 
5405 055260 T25RT2: 
5406 0552606 SAVREG SAVE THE REGISTERS 
5407 055264 012701 053740 MOV #T25PK2,R1 ‘START OF THE PACKET 
5408 055270 012721 100006 MOV #100006, (R1)+ ‘WRITE SUBSYSTEM MEM. WITH ACK, 
5409 055274 012721 053760 MOV aT SBF2, (R1)+ s ADDRESS OF DATA BLOCK 
5410 055300 005021 CLR (R1)+ sEXTENDED ADDRESS 
5411 055302 012721 000006 MOV #6.,(R1)+ sSIZE OF DATA BLOCK IN BYTES 
5412 055306 005021 CLR (R1)+ 





5 


a 


TT 


———— 
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5: SPACE 
13 055310 012701 
414 055314 005021 
15 055316 005011 
16 955320 000207 
17 055322 
18 055322 
5419 055326 012701 
5420 055332 012721 
5421 055336 012721 
5422 055342 005021 
5423 055344 012721 
5424 055350 000207 
5425 055352 
055352 
055352 104401 


053760 


053750 
000000 
000000 


000000 





T25RT3: 


ENDTST 


4 
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#T25BF2,R1 
(R1)+ 

(R1) 

PC 


#T25PK3,R1 


| 
SEQ 0246 || 


POINT TO DATA SEL AREA 


; RETURN 
sSAVE THE REGISTERS 


sSTART OF THE PACKET 

WRITE SUBSYSTEM MEM. WITH ACK, 
ADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

olin OF DATA BLOCK IN BYTES 


L10071: 
TRAP CSETST 





0 
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TEST 6: REREADS 


54 

5445 055354 
055354 

5446 055354 


te! 055414 
5478 055414 


aa6 055432 


012737 


005037 


104402 


012737 


006446 002170 
017364 


002206 
071746 


074510 
074602 


074644 
176750 071754 
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SEQ 0247 


-SBTTL TEST 6: REREADS 
+ 


STHIS Hy aah THAT THE REREAD PREVIOUS AND REREAD NEXT 
3 COMMANDS 


CONDI ONG. RECORD 
; EVERSE AT BOT, ILLEGAL DATA BUFFER ADDRESSES, 
+ AND DATA BUFFERS. IN NONEXISTENT MEMORY. 


THE TEST CONSISTS OF THE FOLLOWING 15 SUBTESTS 


BGNTST rr 
MOV #EPRT2,EPRTSW + SECONDARY ERROR MESSAGE 
JSR PC .KTOFF ;DON'T NEED KT11 


MOV #TST261D,RO 
JSR PC, TSTSETUP 
MOV #5, LOOPCNT SPERFORM 5 Li ah a 

JSR PC ,MEMCK ZCHECK FOR MEMORY 

CLR T26CNT CLEAR TAPE RECORD COUNTER 


ZASCII MESSAGE TO IDENTIFY TEST 
2:00 INITIAL TEST SETUP 


+ 


;TEST 6, SUBTEST 1 


VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0 
SAND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST 
sREWOUND AND THEN WRITTEN WITH A SERIES OF TEST 
RECORDS VARYING IN LENGTH AND DATA CONTENT. 7 TAPE 
31S _ THEN REWOUND AGAIN. FOR EACH TEST RECORD, THE 
TAPE IS SPACED FORWARD ONE RECORD AND A REREAD 
PREVIOUS COMMAND ISSUED. RESULTS (STATUS, DATA, 

ETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD 
PREVIOUS COMMAND IS SET TO THE LENGTH OF THE EXPECTED 
RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 


T26LO0P: 
3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


TRAP C$BSUB 
:SET COMMAND PACKET 
JSR -T26RT [SET UP OTHER COMMAND PACKET 
J :SET UP OTHER COMMAND PACKET 
MOV PreTSORTS 7SET UP DELAY COUNTER 


J AEAAAAAARAAAAAAAEEAAAEEAEEAEEEAAARERAEREARAREREREERAEREEAAEAREEEAAEEES 


JSR te reenest 





| 
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TEST 6: REREAD SEQ 0248 

5485 ; 

3486 ZISSUE CONTROLLER '‘SOFT'’ INITIALIZE = CARRY BIT CLEAR IF ERROR 

5488 PIITITITITITITITILITITLITTT TTL TTT LITT TT TT Titi iii iit Tit TTtT Tete 

5489 

5490 055440 004737 016064 10$: JSR PC, SOF INIT :D0 INITIALIZE gon CONTROLLER 

5491 055444 103426 BCS 20$ R IF INIT WAS OK 

5492 055446 DELAY 250 ‘DELAY FOR A REWIND TO FINISH 
055446 012727 000250 MOV #250, (PC)+* 
055452 000000 . WORD 
055454 013727 002116 MOV LSDLY, (PC)+ 
055460 000000 . WORD 
055462 005367 177772 DEC -6(PC) 
055466 001375 BNE 4 
055470 005367 177756 DEC =22(PC) 
055474 001367 BNE .-20 

5493 055476 005337 071754 DEC T26DLY :DEC COUNTER 

5494 055502 001356 BNE 10$ , IF DELAY NOT READY 

5495 055504 005237 002212 INC FATFLG COUNT 

5499 055510 010001 MOV RO,R1 ZCONTENTS OF TSSR REGISTER 

5500 055512 ERRDF ERRNO, SFIERR,SFIMSG SFATAL ERROR TSSR WAS NOT OK 
055512 104455 TRAP — CSERDF 
055514 001131 .WORD 601 
055516 003650 “WORD SFIERR 
055520 012124 “WORD  SFIMSG 

5501 055522 208: 

5502 055522 013737 002172 071620 MOV UNITN, T26DSW :SET UP UNIT NUMBER 

950 055530 012704 071600 MOV AT26PACKET RG [SUBROUTINE NEEDS PACKET ADDRESS 

5505 PERERA ERAERAERAEAAEREAEERERAERERRAREERERERRERRREREREREAEEREREEEREEE 

5506 ; 

3507 [WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

5509 PTI TITITTTILLILILILELTLT TELL LLLLT TE LTT TTT TTT Tee eTTe 

5510 

5511 055534 004737 010752 JSR PC,WRTCHR : ISSUE WRITE CHARACTERISTICS 

5512 055540 103407 BCS 26$ R, IF COMMAND ISSUED OK 

5513 055542 005237 002212 INC FATFLG BUMP COUNT 

5517 055546 010001 MOV RO,R1 SSAVE CONTENTS OF TSSR 

5518 055550 ERRHRD ERRNO,WRIMSG, SF IMSG [WRITE CHARACTERISTISC FAILED 
055550 104456 CSERHRD 
055552 001132 Teono 602 
055554 005054 “WORD WRTMSG 
055556 012124 “WORD  SFIMSG 

5519 055560 26$:  CKLOOP ;LOOP IF SELECTED . 

ase 055560 104406 TRAP. ‘C$CLP1 

5521 SAAR AAREEAEEAAEERREAREAEEEEEAREAAERRAEEAAEEREREREREEREREEREREREKEEEES 

5522 3 

3523 S ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

5525 PITIIIITITILTTIL LTTE LETTE LITLE T Tit iii Tri TTT etTTe 

5526 

5527 055562 004737 011104 JSR PC REWIND :CALL TAPE REWIND COMMAND 

5528 055566 103413 BCS 30$ :BR, IF NO PROBLEM 

5529 055570 016501 000002 MOV TSSR(RS),R1 : 

5530 055574 012702 000200 MOV #SSR,R2 [SET UP EXPECTED TSSR 








636 

5554 Ossece 

055642 

055644 

055646 

055650 

5555 055652 
05565 

5556 055654 

ELA 055660 


66 
67 055700 
68 


wr 
oo 
Vn 
SN 
N= 
moO 


77 


5582 055752 


010004 
00237 


104456 


0 
012136 
104406 


013701 


005237 
104456 


015564 


104406 
012703 
013737 


002212 


071630 
000002 


002212 


000400 
003114 


140005 
071720 


017512 


000200 


002212 
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071722 


071720 


30$: 


INC FATFLG 
ERRHRD ERRNO, T26RWN,PKTSSR 


CKLOOP 


:PACKET ADDRESS SET UP 
‘REWIND NOT ACCEPTED 


LOOP IF SELECTED 


SERA AAAAAAEAEEEEAEERERARERERRAARAARAEREREREREREREEEERAREREREEREKEEEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
FERRARA AEEAAERAEREREEEREEAERERERAERERERARREREREERRERREREKEKEEREES 


40$: 


MOV ees. oR1 
BIS #BIT1,R2 
R1,R2- 


FATFLG 
ERRHRD ERRNO, 1T26B0T ,EXPREC 


CKLOOP 


MOV #256. .R3 
MOV FREE, T26RB 


zPICK UP XxSsTO 

SET UP_ EXPECTED 

SET BOT BIT IN ene 
;DOES EXP = REC'D 

:BR IF F EQUAL (OK) 


UMP C 
TAPE NOT AT BOT AFTER ye rh 


LOOP IF SELECTED 
RECORD SIZE 


TRAP 


STARTING WRITE BUFFER ADDRESS 


FARRAR AAAARAAEERERERARAREEEEEEEAREAEREAERARERARERERRAREEEREEEKE EERE 


[WRITE DATA,ACK,CVC=1 COMMAND 


e 
FARAAAAAARAAEAAARAERAAAEERERERARERERRERAEAEERRERERERAEREEEREREEREEEE 


65$: 


75$: 


MOV #140005, a 
MOV #T26PK3,R 


R3,RO 
SR PC.FILLMEM 
MOV R3,126SZ 


MOV Ra. TSDB(RS) 
JSR *W 

MOV TSSRCRS), R1 
MOV #SSR_R2 
CMP R1,R2 

BEQ 75$ 

INC 


FATFLG 
ERRHRD ERRNO, WRTERR,EXPREC 


CKLOOP 


WRITE DATA,ACK,CVC=1 COMMAND 


SET UP R4 WITH PACKET ADDRESS 


SEQ 0249 


CSERHRD 
603 
T26RWN 
PKTSSR 


CSCLP1 


CSERHRD 
604 
T26B0T 
EXPREC 
CSCLP1 


HY PATTERN IN CORRECT ett 


sFILL MEMORY WITH REC 
3SET fe SIZE IN PACKET 


2 ISSUE COMMAN 

WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
:SeT U UP EXPECTED 


:LOOP IF SELECTED 


3 UAL 
BUMP COUNT 
3TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
° 605 
-WORD WRTERR 
«WORD EXPREC 


det 





a OEP 


F 4 
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TSV 
TEST 6: 


7- uae” 1-8 


5 

5595 055766 
5596 055772 
5597 055774 
5598 056000 
5599 056004 
5600 056006 
5604 GeenlS 


5617 
5618 056042 


056054 
5623 056056 

05605 
5624 056060 
56 


5633 056066 


104406 
0 


001346 
104406 


004737 


005237 
104456 


012136 
104406 


013701 


005237 


3 
6 
3 
06 
37 


ooi1 7 
072765 
012136 
1044 
27 


01 


012703 


000414 


011104 


000002 
000200 


002212 


071630 
000002 


002212 


000400 


000001 


071752 





TRAP 
TST (R3)+ ;BUMP RECORD SIZE 
CMP #268. ,R3 sEND OF RECORD YET 
BNE 65$ 7BR, IF MORE RECORDS TO WRITE 
80S: CKLOOP ;LOOP IF SELECTED 
TRAP 
1208: 


FAAAARAAARAAAAAEAARAREARERAERAAEARAARERRERAEAREEREEAAEEREERRERERRERERREE OD 


TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
FARRAR ARAAEAERAAAEEARAREREERERERARARAREARREEREREARAAERERERREEREREEREREE 


JSR PC ,REWIND CALL TAPE REWIND COMMAND 
BCS 1306$ BR. IF IF NO i PROBLEM 


MOV TSSR(RS) ,R1 
MOV #SSR,R2 7 SET UP EXPECTED TSSR 
PACKET —- SET UP 


MOV RO,R4 
INC FATFLG BUMP COUN 
ERRHRD ERRNO, T26RWN,PKTSSR REWIND NOT ACCEPTED 


130$: CKLOOP LOOP IF SELECTED 


FARRAR AAAERARERERAEREREEEAAARAAEREEEREREAREREREREEREREREEREREEEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


. 
© 
FERRARA ARAAEAEARERERAARERREREEERERERERERAEAERERERAEREREREERERERE EKER 


MOV T26BFR+6,R1 :PICK UP XSTO 

MOV R1,R2 ZSET UP EXPECTED 

BIS #BIT1,R2 ‘SET BOT BIT IN EXPECTED 

CMP R1,R2 SDOES EXP = REC'D 

BEQ 140$ BR, IF EQUAL (OK) 

INC FATFLG ‘BUMP COUNT 

ERRHRD ERRNO, T26B0T,PKTSSR [TAPE NOT AT BOT AFTER REWIND 
«WORD 
WORD 
WORD 

140$:  CKLOOP ;LOOP IF SELECTED 

TRAP 


MOV #256. , T26RSZ zSET RECORD SIZE 


ata eater ete 


ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
:B1T 15 SETS DIRECTION - O=FORWARD T=REVERSE 


ee ee Ne ET TE Te Te OT TE 


145$: MOV #1,R3 sSPACE ONE RECORD PARAMETER 


SEQ 0250 
CSCLP1 


CSCLP1 


CSERHRD 
606 
T26RWN 
PKTSSR 
CSCLP1 


CSERHRD 
607 
T26B0T 
PKTSSR 


CSCLP1 


— 





TSV7 = yr tes 1-8 


TEST 6: REREAD 


5634 056072 
5635 056076 
5636 1 


0561 
5643 086156 
0561 
5644 056126 
5645 056132 


66 056206 


056256 
5681 056260 
056260 
5682 056262 


5683 056264 
5684 056266 


012737 


005237 
104456 


010556 


000002 
000200 
002212 


071752 
003114 


141001 
0 


000200 


002212 


003114 
000400 


002212 


G 4 
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071722 


071720 


I 
ERRHRD 


150$: CKLOOP 


MOV 
MOV 


SEQ 0251 
PC, SPACE :CALL SPACE ROUTINE 
156$ ZBR IF NO PROBLEM WITH SPACE COMMAND 
TSSR(RS),R1 
#SSR,R2 ‘SET UP EXPECTED TSSR 
FATFLG : COUN 
ERRNO, T26SC ,EXPREC [POSITION (SPACE RECORDS) FAILED 
TRAP  C$ERHRD 
«WORD 608 
“WORD 126SC 
“WORD EXPREC 
TRAP _— C$CLP1 
T26RSZ,R3 :RECORD SIZE 
FREE, T26RB TSTARTING READ BUFFER ADDRESS 


J TAAAAAAAAAAAAREAEAERAAERERERARERERHRERRAEAERERERAREEREREREREREREEREE 


SREREREAD DATA,CVC=1,ACK COMMAND 


e 
SRERAAEAERARERAEREEREREERERERERAERRERRAAEREREAREREARERAEREREREREREREEE 


165$: MOV 


ERRHRD 


170$: CKLOOP 


S 
173$: ADD 


ERRHRD 


180$: CKLOOP 
TST 
SUB 
CMP 





#141001, T26PK3 sREREREAD DATA,CVC=i,ACK COMMAND 
#T26PK3,R4 7SET UP R4 WITH PACKET ADDRESS 
R3,T26SZ SET UP RECORD SIZE IN PACKET 
R4,TSDB(RS) 2 ISSUE COMMAN 

eWAITF WAIT FOR SSR TO SET 
at 3GET TSSR CONTENTS 


SSR,R2 7SET UP EXPECTED 
5 TARE THEY EQUAL 


FATFLG BUMP COUNT 
ERRNO, T26WDC ,PKTSSR zTSSR INCORRECT AFTER — DATA 


CSERHRD 
TOORD 609 
“WORD  T26WDC 
“WORD PKTSSR 
;LOOP IF SELECTED 
RAP _— C$CLP'1 
FREE ,R2 ZCURRENT BUFFER ADDRESS TO R2 
3.Ro [CURRENT RECORD SIZE 
#256. RG ZFIRST LOCATION IN BUFFER 
2,R4 : POINTER 
(R4) ,R3 : CHECK DATA READ (R3=DATA ALSO) 
180$ R, IF ALL IS WELL 
(R4),R1 ‘RE DATA 
R3,R2 ZEXPECTED DATA 
FATFLG COUNT 
ERRNO, T26DTA, EXPREC [DATA READ NOT = WRITTEN 
TRAP  CSERHRD 
«WORD 610 
“WORD T26DTA 
-WORD EXPREC 
ZLOOP IF SELECTED 
P = CSCLP1 
(R4)+ ;BUMP TO NEXT LOCATION 
R2,R4 [CORRECT RECORDS SIZE VALUE 
RG.R3 SEND OF RECORD YET 


4 


H 4 
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eens 056270 001360 BNE ph 
5686 056272 005723 TST (R3)+ 
5687 bee ie 010337 071752 MOV RS T26RSZ 
5688 022703 000412 CMP #266., 
5689 036304 001270 BNE 145$ 
5690 056306 190$: CKLOOP 

056306 104406 
5691 056310 ENDSUB 

056310 


| 
| 
| 056310 104403 
5692 056312 023727 002212 000017 CMP FATFLG,#15. 
5693 056320 103402 BLO 999$ 
5694 056322 004737 017272 JSR PC,,CKDROP 
5695 056326 999$: 


SEQ 0252 
:BR, IF NOT AT END OF RECORD 
; IZE 


YET 
:BR, IF MORE RECORDS TO READ 
LOOP IF SELECTED 
CSCLP1 


TRAP 
y>>>>>>>>>>>> ~~ >>>>>>>>>>>> 


TRAP CSESUB 
31S ERROR COUNT AT 25 
7BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 


1] 


os 


ee a es 


—— _——— -—___— 


5710 056326 


05 
5729 056370 
5731 056376 


056424 
5747 056426 

056426 
5748 


104402 
37 


004737 
013737 


012704 


4 
012124 
104406 


| 1$v7 - rere TESTS 1-8 
| Test 6: REREAD 


074510 
074602 
074644 


016064 
002212 


002172 
071600 


010752 
002212 


I 4 
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59 


;TEST 6, SUBTEST 2 


; VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0 

AND SWB=1 OPERATES PROPERLY. THE ag fit it IS 
;THE SAME AS THAT USED IN SUBTEST 1 T IT IS 
:VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
SWAPPED BYTES. 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
"TRAP ss C$BSUB 
JSR PC, T26REST :SET COMMAND PACKET 
JSR PC; T26RT2 'SET UP OTHER COMMAND PACKET 
JSR PC. T26RT3 [SET UP OTHER COMMAND PACKET 
FERRARA RARAAAEEAEEEERERAEEARERREREEEEERERAERERERAEEREEERERREERE 
TISSUE CONTROLLER "'SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
PITITITITITITIIITITI TTL TTL TLL TTL Ltt LLL LLL ELLE LLL 
JSR PC, SOF INIT :D0 INITIALIZE ON CONTROLLER 
BCS 20$ :BR IF INIT WAS OK 
INC FATFLG [BUMP COUNT 
MOV RO,R1 [CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR, SF IMSG [FATAL ERROR TSSR WAS NOT OK 
TRAP — CSERDF 
«WORD 611 
“WORD SFIERR 
“WORD  SFIMSG 
071620 20$: MoV UNI TN, T26DSW :SET UP UNIT NUMBER 
MOV #T26PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
FARA AAA AAR AAAAAEAEAAAEAAEAEEAERAREARERAEERAAREEREEREEREEREEE 
[WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
PITIIIIIIIILITI LITT LI TLL LLL LLL ELL LLL LLL LEE EE 
JSR PC ,WRTCHR TISSUE WRITE CHARACTERISTICS 
BCS 26$ :BR. IF COMMAND ISSUED Ok 
INC FATFLG COUNT 
MOV RO,R1 :SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
CSERHRD 
TOORD 612 
“WORD WRTMSG 
“WORD  SFIMSG 
26$:  CKLOOP :LOOP IF SELECTED 
TRAP — CSCLP1 


SEQ 0253 
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fi TEST 6: REREAD 
| Hed FRARARARARAREAAEEAERAEEREAEERERERRERRERRREEEREREEEEEREREREEEREEREEE 
| 3733 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
5753 ITITITITIIITILILILL LILI LTLLLE LTT TTT Ti iTTT Ti iTT TTT TT Teter 
5754 
5755 056430 004737 011104 JSR PC REWIND + gt a by COMMAND 
5756 056434 103413 BCS 30$ 7OR. IF NO PROBLEM 
5757 0564 016501 000002 MOV TSSR(RS),R1 ;GET TSSR 
5758 056442 012702 000200 MOV #SSR,R2 SET UP EXPECTED TSSR 
5759 056446 010004 MOV et RG :PACKET ADDRESS SET UP 
5760 056450 005237 002212 INC ATFLG BUMP COUNT 
5764 056454 ERRHRD ERRNO. T26RWN,PKTSSR sREWIND NOT ACCEPTED 
56454 104456 TRAP CSERHRD 
056456 001145 -WORD 613 
056460 073254 «WORD T26RWN 
056462 012136 -WORD PKTSSR 
5765 056464 30$: CKLOOP ;LOOP IF SELECTED 
57 056464 104406 TRAP CSCLP1 
5767 FRAREAAEEEAREERAREREEREREREREARERERERRREREEEREREREREREREREREKERE EE 
57 ; 
3768 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
5771 ITTTITILILTLILILELE LITTLE TELE LETT TTT TTT TTT TTT TTT TTT TTT ee 
5772 
5773 056466 013701 071630 MOV hr pi R1 sPICK UP xSTO 
5774 056472 010102 MOV R1, :SET UP EXPECTED 
5775 056474 052702 000002 BIS *Biti. R2 SET BOT BIT IN pvetre 
5776 056500 020102 CMP R1,R2- :DOES EXP = REC'D 
5777 056502 001406 BEQ 408 , IF EQUAL (OK) 
5778 056504 005237 002212 INC FATFLG 8 
5782 poese ERRHRD ERRNO, T26B0T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
056510 104456 TRAP CSERHRD 
056512 001146 eWORD 614 
Geceie 072765 -WORD T26B0T 
015564 «WORD EXPREC 
5783 056520 40$: CKLOOP ;LOOP IF SELECTED 
104406 TRAP CSCLP1 
5784 bees 22 012703 000400 MOV #256. .R3 sRECORD SIZE 
oreo 056526 013737 003114 071722 MOV FREE, 1T26RB sSTARTING WRITE BUFFER ADDRESS 
prec FRRAAAAAAERAEAREAEEREEREEEEERERAAEREREEEEREERERRERERERERERKEEEEEREREE 
5 3 
gre? 3WRITE DATA,ACK,SWB COMMAND 
5791 ITIIITITILLITILELELI TELE E LTTE TTL T TTT TTT TTT TTT TTT TTT 
5792 
056534 012737 110005 071720 MOV Bs G 1e6PKS sWRITE DATA,ACK,SWB COMMAND 
5794 056542 012704 071720 MOV #T26P K3.R 7SET UP R4 WITH PACKET ADDRESS 
5795 056546 65$: 
5796 056546 010300 MOV R3,RO eser PATTERN IN yl a treisien 
5797 056550 004737 017512 JSR PC, FILLMEM L MEMORY WITH RECORD SIZE 
5798 056554 010337 071726 MOV R3,726SZ Ete UP RECORD SIZE in" Atta 
056 010465 000000 MOV R4. Mo Ta 2 ISSUE COMMAN 
5800 056564 094737 016340 JSR PC, [WAIT FOR SSR TO SET 
5801 056570 016501 000002 MOV TSSRcRs), R1 3GET TSSR CONTENTS 





SEQ 0254 


Ne e—EEEEEEEEEEeEeeeeeeeen 


ps re 


kK 4 
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| TSV? = ge te 1-8 


TEST 6: REREAD 
5802 056574 
5803 056600 
5804 056602 


5805 056604 
5809 E5994 


6620 
5811 056622 


5814 paces 


056616 
5810 056620 
rs Ay 056634 


05 
5851 056724 
05672 


005237 
Hb eet 
50 


0011 
073254 
012136 


104406 
013701 
0 


06 
005237 
104456 


015564 
104406 


000200 


002212 


000414 


011104 


000002 
000200 


002212 


071630 
000002 


002212 


75$: 


80$: 


120$: 


ERRHRD 


CKLOOP 


TST 
CMP 


BNE 
CKLOOP 


#SSR,R2 
R1,R2 
°§ 


FATFLG 
ERRNO ,WRTERR,PKTSSR 


(R3)+ 
#268. ,R3 
65$ 


zSET UP EXPECTED 
2 ARE a Faas 


BUMP COUNT 
zTSSR INCORRECT AFTER as Fee 


LOOP IF SELECTED 
BUMP RECORD SIZE 


END OF RECORD YET 
2BR, IF MORE RECORDS TO WRITE 


LOOP IF SELECTED 


FERRARA ERAEAAEEREEEERAEAEAAEARERAREREERAEREERAERREREERREREEREEEEEEE 


SISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
e 
SETAE RAEEE RARER AERAREEEEERAEREREREAEREEEREREERERERERERRRREREKERE 


CALL TAPE REWIND COMMAND 
PROB 


130$: 


CKLOOP 


PC REWIND 
130$ 
TSSR(RS) RI 
#SSR,R2 
RO,R4 


FATFLG 
ERRHRD ERRNO, T26RWN,PKTSSR 


7BR, IF NO 
My 


LOOP IF SELECTED 


LEM 


SET UP EXPECTED TSSR 
;PACKET se SET UP 


COUN 
SREWIND NOT ACCEPTED 


FERRARA EAEARAERAAAEREEREREREREERERREEREREEEEAREREREREEREEEEERERREE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


e 
FARA AAAAAARAEARAEARAREEREEAEAAERAEERAERAAEAREREEEAERERERERREREEEKEREEE 


140$: 


CKLOOP 





{eters RI 

#B1T1,R2 
R1,R2- 

1468 


FATFLG 
ERRHRD ERRNO, T26B0T ,EXPREC 


sPICK UP XSTO 
:SET uP EX 


XPECTED 
sSET BOT BIT ales EXPECTED 


DOES EXP 
BR, IF EQUAL (Ok 
3B COUNT 


) 


[TAPE NOT AT BOT AFTER REWIND 


LOOP IF SELECTED 


SEQ 0255 


TRA CSERHRD 
«WORD 615 
«WORD WRTERR 
«WORD PKTSSR 
TRAP CSCLP1 
TRAP CSCLP1 
CSERHRD 
«WORD 616 
-WORD T26RWN 
«WORD PKTSSR 
TRAP CSCLP1 
TRAP CSERHRD 
«WORD 617 
-WORD T26B0T 
WORD EXPREC 
TRAP CSCLP1 


TSV7 = HARDWARE TESTS 1-8 





TEST 6: REREADS 
o83¢ 056726 012737 000400 071752 


585 
5854 
5855 
5856 
5857 
5858 
5859 
5860 
5861 056734 012703 000001 
5862 056740 004737 010556 
5863 056744 103412 
056746 016501 000002 
5865 056752 012702 000200 
056756 005237 002212 
5870 056762 
056762 104456 
056764 001152 
056766 072367 
056770 015564 
5871 056772 
056772 104406 
5872 056774 013703 071752 
5873 057000 013737 003114 071722 
5874 
5875 
5876 
5877 
5878 
5879 
5880 
5881 057006 012737 151001 071720 
5882 057014 012704 071720 
5883 057020 010337 071726 
884 024 010465 000000 


000200 


5890 057050 005237 002212 


05 
5895 057064 

057064 
003114 
000400 


5896 C=7066 
5897 057072 
5898 057074 


0 
005237 002212 


5904 057112 
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MOV #256. , T26RSZ 


:SET UP RECORD SIZE 


haa a ala ican ee 


ISSUE SPACE RECORDS COMMAND = VALUE i" R3 shee NUMBER OF RECORDS 


:B1T 15 SETS DIRECTION = O=FORWARD 


T=REVER 


| eaeseneemnineNeEnnnenNeEeEniNaeReNseNENneenEEaeeNeRnaREeN 


145$: MOV #1,R3 

JSR PC, SPACE 
MOV TSSR(RS),R1 
MOV #SSR,R2 


INC FATFLG 
ERRHRD ERRNO, T26SC,EXPREC 


150$: CKLOOP 


MOV T26RSZ,R3 
MOV FREE, T26RB 


:SPACE ONE RECORD PARAMETER 
[CALL SPACE ROU 

:BR IF NO PROBLEM WITH SPACE COMMAND 
[SET UP EXPECTED TSSR 


[POSITION (SPACE RECORDS) FAILED 
TRAP 


CSERHRD 
«WORD 618 
«WORD T26SC 
«WORD EXPREC 


TRAP CSCLP1 
RECORD SIZE 
STARTING READ BUFFER ADDRESS 


FARA REAEAAARAEEEAEAREEEERERERREEREEERAEREREEERREREREEREEREKEEEEEEEEE 


REREAD DATA,CVC=1,ACK,SWB COMMAND 


. 
e 
FERRARA AAEAEAEAERAEERERERERERERAERAEREREREREREAERERRREREEREREREEEE 


MOV #151001, T26PK3 

165$: MOV #T26PK3,R4 
R3,126SZ 

MOV R4, TSDB(RS) 

JSR PC ,WAITF 


MOV TSSR(R5),R1 
MOV #SSR,R2 


CMP R1,R2 

BEQ 170$ 

INC FATFLG 

ERRHRD ERRNO, T26WDC,PKTSSR 


170$:  CKLOOP 
MOV FREE ,R2 
#256. .R4 
173$: ADD 
CMP (R4) ,R3 
180$ 
MOV (R4),R1 
R3,R2 
INC FATFLG 


REREAD DATA,CVC=1,ACK,SWB COMMAND 
SET UP R4 WITH PACKE? ADDRESS 
SET UP RECORD SIZE IN PACKET 
ISSUE COMMAND 


WAIT FOR SSR TO SET 
ARE THEY EQUAL 
IF OK 


COUNT 
STSSR INCORRECT AFTER mene DATA 


TRA CSERHRD 

WORD 619 

WORD T26WDC 

-WORD PKTSSR 
LOOP IF SELECTED 

TRAP CSCLP1 


CURRENT BUFFER ADDRESS TO R2 
CURRENT RECORD SIZE 
sFIRST LOCATION IN BUFFER 


SET UP POI 

;CHECK DATA te _— DATA ALSO) 

sBR. IF ALL IS W 
RECD DATA 

EXPECTED DATA 

BUMP COUNT 


SEQ 0256 


“4 


| mM 4 
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TEST 6: REREAD SEQ 0257 
5908 O37116 ERRHRD ERRNO, T26DTA,EXPREC :DATA READ NOT = WRITTEN 
057116 104456 TRAP CSERHRD 
057120 001154 «WORD 620 
057122 073032 «WORD T26DTA 
057124 015564 «WORD EXPREC 
5909 057126 180$: CKLOOP sLOOP IF SELECTED 
057126 104406 TRAP C$CLP1 
5910 057130 005724 TST (R4)+ ;BUMP TO NEXT LOCATION 
5911 057132 160204 SUB R2,R4 CORRECT op thay Size VALUE 
5912 057134 020403 CMP R4,R3 TEND OF RECORD Y 
5913 057136 001360 BNE 173$ 7BR, IF NOT AT END OF RECORD 
5914 057140 005723 TST (R3)+ ;BUMP RECOR 
5915 057142 010337 071752 MOV RS T26RSZ STORE RECORD SIZE 
5916 057146 022703 000412 CMP #266. ,R3 SEND OF RECORD YET 
5917 057152 001270 BNE 145$ :BR, IF MORE RECORDS TO READ 
5918 057154 190$: CKLOOP ;LOOP IF SELECTED 
057154 104406 TRAP CSCLP1 
5919 057156 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
057156 L10104: 
057156 104403 TRAP CSESUB 
5920 057160 023727 002212 000017 CMP FATFLG,#15. os 31S ERROR COUNT AT 25 
5921 057166 103402 BLO 999$ 3BR, IF LESS THAN 25 
5922 057170 004737 017272 JSR PC, CKDROP ;TRY TO DROP THE UNIT 


5923 057174 999$: 


I, 


TSV7 = A acas ——" 1-8 


TEST 6: 


aaa 

| 5928 
5929 
5930 
5931 


5977 


5978 


REREAD 


patie, 


057212 


057232 
057232 
057234 
057236 


057240 
057242 


104402 
004737 
005037 


004737 
004737 


004737 


074510 


074644 


016064 
002212 


002172 
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071620 


SEQ 0258 


2 


:TEST 6, SUBTEST 3 


SVERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1 
3 (READ REVERSE, SPACE FORWARD) AND SWB=0 OPE 


WITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND 
:DATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD 
ZCONTAIN ITS RECORD NUMBER (INDICATING POSITION ON 
:TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH 
sTEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED. 


31. THE REREAD PREVIOUS COMMAND WITH OPP=1 IS ISSUED 
AND THE RESULTS CHECKED 


A READ esr: COMMAND IS THEN i Po THE 
DATA_IS CHECKED TO VERIFY THAT THE TAPE WAS 
othe PROPERLY AFTER THE "REREAD PREVIOUS 
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
POSITIONED AT THE START OF THE TEST RECORD). THE 
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
PROPERLY AT THE START OF THE NEXT TEST RECORD. 


THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET 
:TO THE LENGTH OF THE EXPECTED RECORD, SO NO 
EXCEPTIONAL CONDITIONS SHOULD OCCUR. 


Nm 
° 


3>>>>>>>>>>>> BEGIN SURTEST >>>>>>>>>>>> 


TRAP C$B8SUB 
JSR PC, T26REST SET COMMAND PACKET 
CLR T26CNT CLEAR TAPE RECORD COUNTER 
JSR PC, T26RT2 7SET UP OTHER COMMAND PACKET 
JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 


hintaan can acc a aati es 


j ISSUE CONTROLLER *‘SOFT’’ INITIALIZE ~ CARRY BIT CLEAR IF ERROR 


| ebeninidnkeninianbnineenbttiyenbeninenibnnbiaameneenENEee 


JSR PC, SOF INIT :D0 INITIALIZE ON CONTROLLER 
INIT WAS OK 


BCS 20$ :BR IF 

INC FATFLG 28 COUNT 

MOV RO,R1 CONTENTS OF TSSR REGISTER 

ERRDF ERRNO. Sf IERR, SF IMSG :FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
-WORD 621 
-WORD SFIERR 
«WORD SFIMSG 


208: MOV UNITN, T26DSW SET UP UNIT NUMBER 
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TEST 6: REREADS SEQ 0259 

5979 

goee 057250 012704 071600 MOV #T26PACKET,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 

aoat FRRAAAARAEAAEAEREEAEEAEAEREREERERRAREERERARRERERERERERARERERERREEES 

598 ; 

Sone sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

5986 ITTITITITISTIIILLLLLI TTL TILT LTLTT TTT LiTi Ti iiittiiiii Tei ttee 

5987 

5988 057254 004737 010752 JSR PC, ,WRICHR Z ISSUE WRITE CHARACTERISTICS 

5989 057260 103407 BCS 26$ BR, IF COMMAND ISSUED OK 

5990 057262 005237 002212 INC FATFLG BUMP COUNT 

5994 057266 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5995 057270 ERRHRD ERRNO,WRTMSG,SFIMSG [WRITE CHARACTERISTISC got 
057270 104456 CSERHRD 
057272 001156 TOORD 622 
057274 005054 «WORD WRTMSG 
057276 012124 «WORD SFIMSG 

5996 057300 268: CKLOOP ;LOOP IF SELECTED 

5997 057300 104406 TRAP CS$CLP1 

5998 FEARED RARER EAEREREEAREREREREREERRERRREERERREEREREEERERERERERREREER 

5 é 

oo ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

6002 ITITITITTILILILILLLILI LTTE LTT TTT TTT iti eee T TT TTT TTT 

6004 057302 604737 011104 JSR PC REWIND :CALL TAPE REWIND COMMAND 

6005 057306 105413 BCS 30$ 7BR, IF NO PROBLEM 

6006 057310 016501 000002 MOV TSSR(RS),R1 :GET TSSR 

7 057314 012702 000200 MOV #SSR,R2 ;SET UP EXPECTED TSSR 

6008 057320 010004 MOV RO, Ro :PACKET ADDRESS SET UP 

6009 057322 005237 002212 INC FATFLG ;BUMP COUNT 

6013 057326 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
057326 104456 TRAP CSERHRD 
057330 001157 «WORD 623 
057332 073254 eWORD T26RWN 
057334 012136 -WORD PKTSSR 

6014 057336 30$: CKLOOP ;LOOP IF SELECTED 

6015 057336 104406 TRAP CSCLP1 

6016 FERAAARAAEAEEEAEREAEEREREEREREEAARAERAEARERARRERREREEEERERERERRRREERE 

6017 s 

oni READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

6020 PITITITITILITITILLLLLTL LITTLE TT TTT TTT Tei eee TTT 

6021 

6022 057340 013701 071630 MOV Te6er RG, R17 sPICK UP XxSTO 

6023 057344 01010 MOV R1,R2 sSET UP EXPECTED 

6024 057346 052702 000002 BIS weit. R2 SET BOT gut! IN EMPecves 

6025 057352 020102 CMP R1,R2- :DOE EXP = REC'D 

6026 057354 0014 BEQ 40$ R, IF EQUAL (OK) 

6027 057356 005237 002212 INC FATFLG COUNT 

6031 057362 ERRHRD ERRNO, T26B0T,EXPREC TAPE NOT AT BOT AFTER REWIND 
057362 104456 TRAP CSERHRD 
057364 001160 - WOR 624 


Dd 
057366 072765 -WORD T26B0T 











015564 
104406 


012703 
013737 


012737 
012704 


010300 


005237 
104456 
BY 
0051 

013156 


104406 


000737 
005037 


004737 


005237 


104456 
001162 
073254 
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000400 


003114 


140005 
071720 


017512 


000200 


002212 


000414 


071746 


011104 


000002 
000200 


002212 
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SEQ 0260 
«WORD EXPREC 
408: CKLOOP LOOP IF SELECTED 
TRAP CSCLP1 
MOV #256. R3 sRECORD SIZE 
MOV FREE ,T26RB sSTARTING WRITE BUFFER ADDRESS 


FAARAERAARAARARAARERAARAERRERERRERARRRRAEARERREEAEERAERERAEEREEREEREREE 


[WRITE DATA,CVC=1,ACK COMMAND 


. 
e 
FARRAR AAAAAEEARAREAAAERRREEREERRAEARRAREERERERERRERRREERAEERERREEREREEE 


MOV #140005. 126PK3 :WRITE DATA,CVC=1,ACK COMMAND 
oe MOV #T26PK3,RG TSET UP R4 WITH PACKET ADDRESS 
MOV R3,RO iSET PATTERN IN CORRECT REGISTER 
JSR PC.FILLMEM ‘FILL MEMORY WITH RECORD SIZE 
MOV R3.126S TSET UP RECORD SIZE IN PACKET 
MOV T26CNT, aF REE ;MOVE TAPE RECORD NUMBER TO BUFFER 
ADD #1,T26CNT ‘NUMBER READY FOR NEXT RECORD 
MOV Rs. - TSDB(RS) Z ISSUE COMMAN 
JSR PC; WAITF ‘WAIT FOR SSR TO SET 
MOV TSSR(R5) RI ?GET TSSR CONTENTS 
MOV #SSR,R2 :SET UP EXPECTED 
CMP R1,R2 ARE THEY EQUAL 
BEQ 75$ :BR, IF O 
INC FATFLG ‘BUMP COUN 
ERRHRD ERRNO,WRTERR,PKTSSR TSSR SOUORRECT AFTER WRITE DATA 
TRAP  CSERHRD 
.WORD 625 
"WORD WRTERR 
“WORD PKTSSR 
75$:  CKLOOP ;LOOP IF SELECTED 
TRAP — CSCLP1 
TST (R3)+ :BUMP THE RECORD SIZE 
CMP #268. ,R3 [MAXIMUM SIZE YET 
BEQ 120$ 'BR, IF AT END OF WRITE SEQUENCE 
se BR 65$ [WRITE MORE RECORDS 
CLR T26CNT :SET RECORD COUNTER BACK TO ZERO 


FERRARA REERERAEREEAEERERERAERERRERERRERAERERAERERERERRERERERERKEEEE 


TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


° 
FERRARA AARERAEAARAEHEERAEREREKREAREREEREEREREREREREEEREREREREEEE 


JSR PC REWIND ZCALL TAPE REWIND COMMAND 

BCS 136$ 7BR, IF NO PROBLEM 

MOV TSSR(RS),R1 ‘GET TSSR 

MOV #SSR,R2 [SET UP EXPECTED TSSR 

MOV RO,R4 ;PACKET ADDRESS SET UP 

INC FATFLG COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR “REWIND NOT ACCEPTED 
TRAP  CSERHRD 
«WORD 626 


R 
-WORD T26RWN 
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| TEST 6: REREADS SEQ 0261 
057560 012136 .WORD PKTSSR 
6085 057562 130$:  CKLOOP :LOOP IF SELECTED | 
am 057562 104406 TRAP  C$CLP1 
6087 FRRAARARAERARAAEARHRAERERAEEREERERAEERARREREERAEEREEAREAEEERREREREEREEEE 
6088 3 
6089 ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
6091 ITTITITILILITILILLLILITL TLL L LITT T Titi TiTitt iit Tei TTeTTte 
6092 
6093 057564 013701 071630 MOV T26BER+6, R1 :PICK UP xSTO 
6094 057570 010102 MOV R2 [SET UP EXPECTED 
6095 057572 052702 000002 BIS Saini. R2 :SET BOT BIT IN EXPECTED 
057 020102 CMP F1,R2_ [DOES EXP = REC'D 
6097 057600 001406 BEQ 140$ :BR. IF EQUAL (OK) 
6098 057602 005237 002212 INC FATFLG ‘BUMP COUNT 
6102 057606 ERRHRD ERRNO, T26BOT,EXPREC :TAPE NOT AT BOT AFTER REWIND 
057606 104456 CSERHRD 
057610 001163 TEORD 627 
057612 072765 “WORD T26B0T 
057614 015564 -WORD EXPREC 
6103 057616 140$:  CKLOOP ;LOOP IF SELECTED 
is 057 104406 TRAP _—C$CLP1 
6105 i icant ia taal taal aa ial 
6106 
6107 TISSUE SPACE RECORDS COMMAND = VALUE IN R3 SETS NUMBER OF RECORDS 
6108 :B1T 15 SETS DIRECTION = O=FORWARD  1=REVERSE 
6110 sae sheeabilbsiiheeianiieneneeinidienheisinnnntindaniaeneaneinamntieemnenbnS 
6111 
6112 057620 012703 000001 MOV #1,R3 ZSPACE 1 RECORD FORWARD 
6113 057624 004737 010556 JSR PC SPACE [SPACE CALL 
6114 057630 012703 000400 MOV #256. R3 ‘RECORD SIZE 
6115 057634 013737 003114 071722 150$: MOV FREE, T26RB ZSTARTING READ BUFFER ADDRESS 
6117 SAERAARARAREEEERERERAAEEEEERERAERAERAERAERERERERERREREREREREREEEEREREEEE 
6118 ; 
6119 [REREAD DATA,CVC=1,ACK, OPP COMMAND 
6121 ETITITTLETTITILE ELITE LTTE LTTE TTT TTT TTT TT TTT TTT TTT 
612 
6123 057642 012737 161001 071720 MOV #161001 ,126PK3 ZREREAD DATA,CVC=1,ACK, OPP COMMAND 
6124 057650 012704 071720 165$: MOV ¥T26PK3,R [SET UP R4 WITH PACKET ADDRESS 
6125 057654 010337 071726 MOV R3,T tie [SET UP RECORD SIZE IN PACKET 
6126 057660 010465 000000 MOV Ra, TSDB(RS) [ISSUE COMMAND 
27 057 004737 016340 JSR PC. WAITF :WAIT FOR SSR TO SET 
6128 057670 016501 000002 MOV TSER(RS), R1 [GET TSSR CONTENTS 
6129 057674 012702 000200 MOV A'SSR_R2 ‘SET UP EXPECTED 
6130 057700 020102 CMP h1,R TARE THEY EQUAL 
6131 057702 001406 BEQ 176$ 7BR, IF OK 
6132 057704 005237 002212 INC FATFLG ‘BUMP COUNT 
6136 057710 ERRHRD ERRNO, T26RRG,PKTSSR [TSSR INCORRECT AFTER REREAD DATA 
057710 104456 TRAP  CSERHRD 
057712 001164 «WORD 628 
057714 072272 “WORD  T26RRG 
057716 012136 “WORD PKTSSR 
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6137 057720 

057720 
6138 057722 
ob 057724 


6148 057740 


4 
057776 


6174 060050 
6175 060050 
ott) 


060050 
6176 060052 
6177 060060 
6178 060062 
6179 060066 


Uh esis 
00572 
062757 


104456 
001165 
00 


5204 
012136 
104406 


005237 
104456 
001166 
071756 
015564 


000672 


104403 


000001 


140001 
071726 


0 
000200 


002212 


123102 
071746 


002212 


000412 


002212 
017272 
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071746 


071720 


000017 


170$: 


CKLOOP 


TST 
ADD 


(R3)+ 
#1, T26CNT 


SEQ 0262 
;LOOP IF SELECTED 


TRAP C$CLP1 
sBUMP RECORD SIZE 
BUMP TAPE RECORD COUNTER 


FERRARA AAAERAARAEARAAERENEEREREREAEEEREREEREREREREEREEEREEREEREEREEE 


TREAD DATA, CVC=1, 


ACK COMMAND 


# 
FARRAR RARRAEREERERERERERVERAAERARAEEARERREREEREREEERRREEEREEREKEEEE 


195$: 


197$: 


200$: 


999$: 


ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 


ay ooee T26PK3 


R4, gh 1 a 
TSSR(R5) RI 
R2 


SSR 
J eRe 


FATFLG 
ERRNO ,RDERR,PKTSSR 


@FREE,R1 
T26CNT ,R2 
R1,R2 


199s 


FATFLG 
ERRNO, T26WNG,EXPREC 


#266. .R3 
200$ 
150$ 


fATeL 6.015. 
PC,CKDROP 


+ READ DATA, CVC=1, ae COMMAND 


Zz 
SISSUE READ DATA COMMAND 
WAIT FOR SSR 

PICK UP THE TSSR 
2SET_UP pt 

21S THE TSSR OK 

7BR, IF Yn OK (GOOD) 
BUMP CO 


C 
sREAD DATA COMMAND FAILED 
TRAP 


CSERHRD 
WORD 629 
-WORD RDERR 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
FIRST WORD FROM READ BUFFER 
7SET_UP EXPECTED 
21S _TAPE POSITION CORRECT 
;KEEP po hee POSITION OK 
STAPE POSITION INCORRECT 
TRAP CSERHRD 
-WORD 630 
-WORD T26WNG 


-WORD EXPREC 
TRAP CSCLP1 
zAT MAX a1 


i 
BR, IF AT END OF THE SUBTEST 
KEEP GOING MORE RECORDS 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10105: 


TRAP CSESUB 
31S ERROR COUNT AT 25 
2BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 





anne 
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| TEST 6: REREAD 
| gigs ¥ 
| 6185 ;TEST 6, SUBTEST 4 
| 6185 :VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1 
6186 SAND SWB=1 oP ER ATES PROPERLY. THE TEST SEQUENCE Is 
6187 STHE SAME THAT IS SSED IN SUBTEST 3, BUT IT IS 
6188 S VERIFIED THAT DATA STORED BY THE COMRAND CONTAINS 
6189 [SWAPPED BYTES. 
6190 ; 
6191 ; 
6192 ; 
6193 : 
$198 " 
6196 pense BGNSUB j>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
060066 10440 -"" TRAP ss C$BSUB 
6197 060070 004737 074510 JSR PC, T26REST :SET COMMAND PACKET 
6198 060074 005037 071746 CLR T26CNT ZCLEAR TAPE RECORD COUNTER 
6199 060100 004737 074602 JSR PC, T26RT2 [SET UP OTHER COMMAND PACKET 
6200 060104 004737 074644 JSR PC. T26RT3 :SET UP OTHER COMMAND PACKET 
os FERRARA EEARERRAEEREEREREREKEEEREREEREREEEREEREEREREEEREREERERREERE 
620 ; 
6204 ZISSUE CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
66 ITITITITILILILEL LETTE LITTLE LETTE TTT ieee TTT TTT 
6207 
6208 060110 004737 016064 JSR PC, SOF INIT D0 INITIALIZE oN CONTROLLER 
6209 060114 103407 BCS 20$ :BR IF INIT WAS OK 
6210 060116 005237 002212 INC FATFLG BUMP COUNT 
6214 060122 010001 MOV RO,R1 ZCONTENTS OF TSSR REGISTER 
6215 060124 ERRDF ERRNO, SFIERR, SF IMSG SFATAL ERROR TSSR WAS NOT Ok 
060124 104455 TRAP = CSERDF 
060126 001167 «WORD 631 
0130 003650 “WORD SFIERR 
060132 012124 -WORD SFIMSG 
6216 060134 013737 002172 071620 20$: Mov UNITN, T26DSW :SET UP UNIT NUMBER 
6218 060142 012704 071600 MOV HT26PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
6<00 FARA AAAAEEARERAEAEEEEREEEEERARAEAERREAEAEEAERARERAEERERREEEEEREREERKEREE 
6221 3 
6222 SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
Geet ITITITILILITILIL LTTE LETT T ELLE TTT TTT TTT TTT TTT TTT TTT TTT TTT 
622 
6226 060146 004737 010752 JSR PC,WRTCHR : ISSUE WRITE CHARACTERISTICS 
6227 060152 103407 BCS 26$ :BR. IF COMMAND ISSUED Ok 
6228 060154 005237 002212 INC FATFLG [BUMP COUNT 
6232 060160 010001 MOV RO,R1 [SAVE CONTENTS OF TSSR 
6233 060162 ERRHRD ERRNO, WRTMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
060162 104456 CSERHRD 
060164 00117 MeORD 632 
060166 00505 -WORD WRTMSG 
060170 012124 -WORD  SFIMSG 


SEQ 0263 


—————————_-————_ ——_——---- 
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| 6234 060172 
| 060172 104406 


013701 


07.2765 


79 
6280 060300 
281 060306 
6282 060312 
060312 


060314 
6285 060320 


011104 


000002 
000200 


002212 


071630 
000002 


002212 


000400 
003114 


140005 
071720 
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071722 


071720 


26$: CKLOOP 


LOOP IF SELECTED 
TRAP CSCLP1 


FARRAR EARERAERAERAARAAREERERERARARAEAAAAREREERAERAEEERERAAEREEEAEEEEEEE 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
° 
FERRARA AAAAAAAAAARAARAEAERAEEAHEEAARAREREAERERAAAREREREERERAAAREREEEEE 


JSR PC ,REWIND 

MOV TSSR(RS),R1 

MOV #SSR,R2 
+t “ap 


INC FATFL 
ERRHRD ERRNO’ T26RWN,PKTSSR 


30$: CKLOOP 


a ; a pe bt by COMMAND 
Rs een PROBLEM 


Ge TSSR 
SET UP EXPECTED TSSR 
:PACKET ADDRESS SET UP 


BUMP COUN 
REWIND NOT ACCEPTED 


TRAP CSERHRD 
«WORD $33 

«WORD T26RWN 
-WORD PKTSSR 


LOOP IF SELECTED 
TRAP CSCLP1 


SF ERAAAAAARAAAEREEAREAERAREREAAERERARERARRERERERAERAEAEREREREEEEEEREEEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


e 
J ERAAAAARARAAEAAREAEEERAEEEERERERAERARAAEERAEREREREEARERRERERREREREREREE 


MOV T26BER+6,R1 
BIS #BIT1,R2 
CMP R1,R2 

40$ 


FATFLG 
ERRHRD ERRNO, T26B0T ,EXPREC 


40$: CKLOOP 


MOV #256. .R3 
MOV FREE, T26RB 


sPICK UP XSTO 
SET UP EXPECTED 

SET BOT BIT IN EXPECTED 
DOES EXP = REC‘D 


s 
‘BR, IF EQUAL (OK) 
[TAPE NOT AT BOT AFTER REWIND 
TRAP 


CSERHRD 
WORD 634 
-WORD T26B0T 
-WORD EXPREC 


LOOP IF SELECTED 
TRAP CSCLP1 


sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


FERRARA EERAAREEAEEEEEEREREEEREREEREAEERRERREREREEEREEREREEEEEREE 


[WRITE DATA,CVC=1,ACK COMMAND 


e 
FERRARA RERAEAERAEEAAERAAEAEEEEEAERAEEAEAARAERERERERAERAEEAEEREREEEEREEREEE 


MOV #140005, TeGrKs 
65s: MOV #T26PK3,R 


R3,R0 
JSR PC,FILLMEM 
MOV R3,726SZ 


WRITE DATA,CVC=1,ACK_ COMMAND 
:SET UP R4 WITH PACKET ADDRESS 


amr PATTERN IN CORRECT REGISTER 
FILL MEMORY WITH RECORD SIZE 
SET UP RECORD SIZE IN PACKET 


SEQ 0264 


| 
| 
| 
| 





TS 
TE 
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ST 6: 


6286 060324 
6287 060332 
6288 0 


6322 060444 
0444 


060446 
060450 


060452 
6323 060454 
060454 


013777 
062737 


005037 


013701 


005237 
104456 


071746 12256 
000001 07174 
000000 


000200 


002212 


000412 


071746 


011104 


000002 
000200 


002212 


071630 
000002 


002212 
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SEQ 0265 
MOV T26CNT aFREE :MOVE TAPE RECORD NUMBER TO BUFFER 
ADD #1, T26CNT [NUMBER READY FOR NEXT RECORD 
MOV RG. - TSDB(RS) TISSUE COMMAN 
JSR PC. WAITF ‘WAIT FOR SSR TO SET 
MOV TSSR(RS),R1 :GET TSSR CONTENTS 
MOV SSR,R2 ‘SET UP EXPECTED 
CMP R1,R2 TARE THEY EQUAL 
BEQ 75$ 78R, IF OK 
INC FATFLG ‘BUMP COUNT 
ERRHRD ERRNO,WRTERR,PKTSSR :TSSR INCORRECT AFTER REREAD DATA 
CSERHRD 
TeoRD 635 
‘a “WORD WRTERR 


-WORD PKTSSR 


75$: CKLOOP LOOP IF SELECTED 
TRAP CSCLP1 
TST (R3)+ sBUMP THE RECORD SIZE 
CMP #266. ,R3 MAXIMUM S YET 
BEQ 120$ :BR, IF AT END OF WRITE SEQUENCE 
1208 BR 65$ WRITE MORE RECORDS 
CLR T26CNT zSET RECORD COUNTER BACK TO ZERO 


STARA AAAAERAAAEAARARERAEEEAAEAERAERAAARARAAERAEEERERERRERERERRREREEREREE 


TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


e 
FARRAR AAAARAEAAEAAERAERARERERERERARARERAEHERERERARERRERAEEREEKEKEEKEREE 


JSR PC REWIND 


:CALL TAPE REWIND COMMAND 
BCS 130$ 78R, IF NO PROBLEM 
MOV TSSR(RS),R1 [GET T 
MOV #SSR,R2 ‘SET UP EXPECTED TSSR 
MOV RO, “Rd [PACKET ADDRESS SET UP 
INC TFLG ‘BUMP COUNT 
ERRHRD ERRNO. T26RWN,PKTSSR SREWIND NOT ACCEPTED 
CSERHRD 
«WORD 636 
“WORD  T26RWN 


-WORD PKTSSR 
TRAP CSCLP1 
PIPPI iii itil itis Ti iititiiiititiiiitiitititit 
READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
FARRAR AARAAAERAAERERAAEREREREEERAEAERARAEAEREEREARERERERERERREREEEEEEE 


MOV T26BFR+6, R1 :PICK UP XSTO 

MOV R1,R2 SET uP EXPECTED 

BIS #BiT1,R2 ‘SET BOT BIT IN EXPECTED 
R1,R2° [DOES EXP = REC'D 

BEQ 146$ :BR : If EQUAL (OK) 


OUN 
;TAPE NOT AT BOT AFTER ie 
TRAP CSERHRD 


130$: CKLOOP LOOP IF SELECTED 


feet aamsSaatennsteetent 
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060502 061175 
060504 072765 


F 


060506 
6341 060510 
060510 


0 
015564 
104406 


000001 


0 
003114 


171001 
0 0 


000002 
000200 


002212 


122274 
071746 


002212 


000001 
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071722 


071720 


071746 


140$: CKLOOP sLOOP IF SELECTED 


ei aaah illite 


ISSUE SPACE RECORDS COMMAND = VALUE IN R3 SETS NUMBER OF RECORDS 
:B1T 15 SETS DIRECTION = O=FORWARD 1=REVERSE 


| eemaambeeonmmnnesneonanbbnennhenneieneneunianeanennnnnehnannanianee 


MOV #1,R3 :SET UP SPACE FORWARD 1 
JSR PC. SPACE SISSUE SPACE COMMAND 
MOV #256. R3 SRECORD SIZE 
150$: MOV FREE. T26RB ZSTARTING READ BUFFER ADDRESS 


FARRAR AAARARARAAEAEREEAEERERAAAARERARERREREREREERAERERREREREREREREEEE 


REREAD DATA,CVC=1,ACK, OPP COMMAND 


o 
FEAR AAAEAAAAAARAAEREEAERRERRERARERERRERAERRERAERAREREEEEEREEEREREREREE 


MOV #171001, T26PK3 
165$: MOV #T26PK3,R4 3SET 
MOV R3,7126SZ :SET UP RECORD SIZE IN PACKET 


et 


SEQ 0266 | 
637 | 
T2680T 
EXPREC 
CSCLPt 


Hr be Hee | ha 1,ACK, OPP COMMAND 
R4 WITH PACKET ADDRESS 


MOV R4.TSDB(RS) “ISSUE COMMAND 
JSR *WAITF SWAIT FOR SSR TO SET 
MOV TSSR(R5),R1 :GET TSSR CONTENTS 
MOV #SSR,R2 :SET UP EXPECT 
CMP R1,R2 TARE THEY EQ 
BEQ 170$ 7BR, IF OK 
INC FATFLG [BUMP COUNT 
ERRHRD ERRNO, T26RRF ,PKTSSR STSSR INCORRECT AFTER REREAD DATA 
TRAP CSERHRD 
«WORD 638 
<WORD  T26RRF 
“WORD PKTSSR 
170$:  CKLOOP :LOOP IF SELECTED 
RAP _— C$CLP1 
MOV aFREE,R1 ZFIRST WORD FROM READ BUFFER 
MOV T26CNT,R2 SET UP EXPECTED 
SWAB sR [SWAP BYTES IN EXPECTED 
CMP R1,R2 :1S TAPE POSITION CORRECT 
BEd 1908 *KEEP GOING POSITION Ok 
ERRHRD ERRND  T26WNG.EXPREC [TAPE POSITION INCORRECT 
TRAP  CSERHRD 
«WORD 639 
<WORD T26WNG 
-WORD EXPREC 
190$:  CKLOOP 
TRAP — C$CLP1 
TST (R3)+¢ ZNEXT RECORD SIZE 
ADD #1,T26CNT [BUMP TAPE RECORD COUNTER 


m—-— SO rr 


J 5 
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| TEST 6: REREADS SEQ 0267 
| one FERRARA AAARAAAAERARAARERAEEEEEREAEAREEREREEREAAERERERERARHEEKEEEEREE 
| 6391 : 
| $33 [READ DATA, CVC=1, ACK COMMAND 
6394 ITITTITITILILILI LITE LLT LTT LTT TILT iit Li TTT tT iiT tite Tete 
6395 
639% 060660 012737 140001 071720 MOV #140001, T26PK3 ZREAD DATA, CVC=1, ACK COMMAND 
6397 060666 010337 071726 MOV ‘ :SET SIZE INTO PACKET 
6398 060672 010465 000000 MOV R4.TSDB(RS) SISSUE READ DATA COMMAND 
6399 060676 004737 016340 JSR *WAITF ‘WAIT FOR SSR 
6400 060702 016501 000002 MOV TSSR(RS) RI ‘PICK UP THE TSSR 
6401 060706 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 
6402 060712 020102 CMP R1,R2 [1S THE TSSR OK 
6403 060714 001406 BEQ 215$ :BR, IF TSSR OK (GOOD) 
6404 060716 005237 002212 INC FATFLG 
6408 060722 ERRHRD ERRNO, T26RDF,PKTSSR “READ DATA COMMAND FAILED 
060722 104456 TRAP CSERHRD 
060724 001200 .WORD 640 
060726 072126 “WORD T26RDF 
060730 012136 ~ WORD PKTSSR 
6409 060732 215$:  CKLOOP :LOOP IF SELECTED 
060732 104406 TRAP  C$CLP1 
6410 060734 017701 122154 MOV aFREE,R1 ZFIRST WORD FROM READ BUFFER 
6411 060740 013702 071746 MOV T26CNT,R2 [SET UP EXPECTE 
6412 060744 020102 CMP R1,R2 :1$ TAPE POSITION CORRECT 
6413 060746 001406 BEQ 217$ [KEEP GOING POSITION O 
6414 060750 005237 002212 INC FATFLG ‘BUMP COUNT 
6418 060754 ERRHRD ERRNO, T26WNG,EXPREC [TAPE POSITION INCORRECT 
060754 104456 TRAP  CSERHRD 
060756 001201 .WORD 641 
060760 071756 “WORD  T26WNG 
060762 015564 -WORD EXPREC 
6419 060764 217$:  CKLOOP 
060764 104406 TRAP  C$CLP1 
6420 060766 022703 000410 CMP #264. ,R3 ZAT MAX SIZE ver 
6421 060772 001401 BEQ 220$ [BR, IF AT END OF THE SUBTEST 
6422 060774 000654 BR 150$ KEEP GOING MORE RECORDS 
6423 060776 2208: 
6424 060776 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
06077 L10106: 
060776 104403 TRAP CSESUB 
6425 061000 023727 002212 000017 CMP FATFLG,#15. 71S ERROR COUNT AT 25 
6426 061006 103402 BLO 999$ 7BR, IF LESS THAN 25 
6427 061010 004737 017272 JSR PC, CKDROP TRY TO DROP THE UNIT 
6428 061014 999$: 


hell Ae a RS RIT et 


a7 


os 
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TEST 6: REREADS SEQ 0268 | 1 

6430 3+ 

6431 : 

ones TEST 6, SUBTEST 5 

6434 ‘VERIFIES THAT A REREAD PREVIOUS COMMAND READING A 

6435 sRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 

6436 ZTAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 

6437 [LONG (RLL) BIT SET. pRESULTS ARE VERIFIED FOR BOTH 

6438 :STATES OF OPP (0 AN 

6439 : 

6440 : 

6441 : 

6442 = 

Ste 

6445 yo th dy BGNSUB j>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
061014 104402 “"" TRAP ss C$BSUB 

46 061016 004737 074510 JSR PC, T26REST :SET COMMAND PACKET 

6447 061022 004737 074602 JSR PC, T26RT2 :SET UP OTHER COMMAND PACKET 

6448 061026 004737 074644 JSR PC, T26RT3 :SET UP OTHER COMMAND PACKET 

6450 FARRAR AARARAEAEEAAEREAEEEREREAEEEREERERAEERERERREEREEEREREEEEEREREREREE 

6451 : 

6452 yISSUE CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 

rts) PT TTITTTITELTLILELELETTT LETTE LETT TTT TTT TTT TTT TTT TTT TTT TTT 

645 

6456 061032 004737 016064 JSR. —« PC, SOF INIT 3DO INITIALIZE ON CONTROLLER 

6457 061036 103407 BCS 20$ 7BR IF INIT WAS OK 

6458 061040 005237 002212 INC FATFLG :BUMP COUNT 

6462 061044 010001 MOV RO,R1 ZCONTENTS OF TSSR REGISTER 

6463 061046 ERRDF ERRNO, SFIERR,SFIMSG ZFATAL ERROR TSSR WAS NOT OK 
061046 104455 TRAP  CSERDF 
061050 001202 «WORD 642 
061052 003650 -WORD SFIERR 
061054 012124 -WORD SFIMSG 

6464 061056 013737 002172 071620 20$: Mov UNITN, T26DSW 7SET UP UNIT NUMBER 

6466 061064 012704 071600 MOV AT26PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

6468 SF EAAAAAAAAAAEAAERERAERERERAEEAEEEAEAAAEEERREREAEREREREERERERERERKEEREEEE 

6469 3 

6670 jWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

6472 ITTTIITITILTTTELETE LTTE LETELETTLE TELE T eit T TTT TTT TTT 

6473 

6474 061070 004737 010752 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 

6475 061074 103407 BCS 26$ :BR. IF COMMAND ISSUED Ok 

6476 061076 005237 002212 INC FATFLG COUNT 

6480 061102 010001 MOV RO,R1 [SAVE CONTENTS OF TSSR 

6481 061104 ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
061104 104456 CSERHRD 
061106 001203 TOORD 643 
061110 005054 .WORD WRTMSG 
061112 012124 -WORD SFIMSG 

6482 061114 26$:  CKLOOP :LOOP IF SELECTED 
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071722 


071720 


TRAP 


FERRARA RAREKERAAAEEEEREEERAERRRERREERRERERAEAREEERREEREREREREREEEE 


TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


° 
FRA RAAEAEREREEREERAERERERRERERKEREEREERAERAEEREEREEREEEEREREEEREEEE 


30$: 


INC 
ERRHRD 


CKLOOP 


PC REWIND ZCALL TAPE REWIND COMMAND 
0$ ‘BR, IF NO PROBLEM 
TSSR(RS),R1 :GET TSSR 

#SSR,R2 SSET UP EXPECTED TSSR 


RO,R4 PACKET ADDRESS SET UP 
FATFLG BUMP COUNT 
ERRNO, T26RWN,PKTSSR REWIND NOT ACCEPTED 


LOOP IF SELECTED 
TRAP 


JAAR EREREEERERREERRERRERERERERREEREEKEEEREREREEREREERERREEREREEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


e 
FERRARA ARERAEAEREARERRERERERERERKEEREAERARAEEEREREERRERRRREREEEEEEEE 


40$: 


INC 
ERRHRD 


CKLOOP 


MOV 
MOV 


T26BFR+6,R1 zPICK UP_XSTO 
P :SET UP EXPECTED 
#B1T1,R2 :SET BOT ar 


R1,R2 :DOES EXP 
40$ sBR, IF te (OK) 


FATFLG : OUN 
ERRNO, T26B0T ,EXPREC : TAPE NOT AT BOT AFTER — 


- WORD 
- WORD 
- WORD 
LOOP IF SELECTED 
TRAP 
#512. ,R3 sRECORD SIZE 
FREE, T26RB sSTARTING WRITE BUFFER ADDRESS 


fF TAAAAAAAAAAAAEAEARAAAEAAEAEARERAARERAEEERRAREAEEREREEEREREREEREREEREEKE 


[WRITE DATA,CVC=1,ACK COMMAND 


° 
J TRAE AAAAAAAAAAAAEAAAAEAAAAEARAAAAARAAAEAEREEERERAREEREREREREREEEEE 


65$: 





#140005 , T26PK3 WRITE DATA,CVC=1,ACK C 
#T26PK3,R4 
:SET UP RECORD SIZE IN PACKET 
; ISSUE COMMAND 


:1SSU 
sWAIT FOR SSR TO SET 
GET TSSR CONTENTS 


R3,126SZ 
R4, TSDB(RS) 
PC ,WAITF 
TSSR(RS) RI 


a 


OMMAND 
:SET UP R4 WITH PACKET ADDRESS 


SEQ 0269 
C$CLP1 


CSERHRD 
644 
T26RWN 
PKTSSR 


C$CLP1 


CSERHRD 
645 


T26B0T 
EXPREC 


CS$CLP1 


aa ee 
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TEST 6: REREADS SEQ 0270 

6535 061254 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 

6536 061260 020102 CMP R1,R2 ZARE THEY EQUAL 

6537 061262 001406 BEQ 75$ 7BR, IF OK 

6538 061 005237 002212 INC FATFLG ‘BUMP COUN 

6542 061270 ERRHRD ERRNO,WRTERR,PKTSSR TSSR SOLORRECT AFTER WRITE DATA 
061270 104456 CSERHRD 
061272 001206 TeoRD 646 
061274 005111 <WORD WRTERR 
061276 012136 “WORD PKTSSR 

6543 061300 75$:  CKLOOP :LOOP IF SELECTED 
061300 104406 ' TRAP _— C$CLP1 

6544 061302 bosons DEC R3 :SET RECORD SIZE TO 511. 

6545 061304 013737 003114 071722 MOV FREE, T26RB TSTARTING READ BUFFER ADDRESS 

6547 SAAR AAAAEAEEREARERREREAEEREEEAEERERAERERERERAREERERERREREREREREREERE 

6548 : 

6549 SREREAD DATA,CVC=1,ACK,OPP=1 COMMAND 

6551 ITTITITILILITILILELILET LETT LE LLTT TTT TT TTT TTT TTT TTT TTT 

6552 

6553 061312 012737 161001 071720 MOV #161001, T26PK3 ZREREAD DATA, CVC=1,ACK,OPP=1 COMMAND 

6554 061320 012704 071720 165$: MOV #T26PK3_RG :SET UP R4 WITH PACKET ADDRESS 

6555 061324 010337 071726 MOV R3, 12652 [SET UP RECORD SIZE IN PACKET 

6556 061330 010465 000000 MOV R4. TSDB(RS) : ISSUE COMMAN 

6557 061334 004737 016340 JSR PC. WAITE ‘WAIT FOR SSR TO SET 

6558 061340 016501 000002 MOV TSSR(RS),R1 [GET TSSR CONTENTS 

6559 061344 012702 100204 MOV #SSR!SC!BIT2,R2 :SET UP EXPECTED 

6560 061350 020102 CMP R1,R2 ARE THEY EQUAL 

6561 061352 001406 BEQ 170$ ‘BR. IF OK 

6562 061354 005237 002212 INC FATFLG ‘BUMP COUNT 

6566 061360 ERRHRD ERRNO, T26TRL,PKTSSR STSSR INCORRECT AFTER REREAD DATA 
061360 104456 TRAP  CSERHRD 
061362 001207 «WORD 647 

074332 “WORD T26TRL 

061366 012136 “WORD PKTSSR 

6567 061370 170$:  CKLOOP ;LOOP IF SELECTED 

a 061370 104406 TRAP  C$CLP1 

6569 SAAR EAREREREEEREEEKEREEEERAEERREREEREREAEERERREERREREERERE 

6570 : 

6571 ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

6573 TTTTTITTILITLLET TTT TEL TTT TT ELITE T TTT TTT TTT TTT 

6574 

6575 061372 013701 071630 MOV T26BFR+6,R1 GET MESSAGE BUFFER 

6576 061376 010102 MOV R1,R2 [SET UP EXPECTED 

6577 061400 052702 010000 BIS #BiT12,R2 7SET THE RLL BIT IN EXPECTED 

6578 061404 020102 CMP R1,R2 TARE THEY EQUAL 

$2r5 061406 001406 BEQ 180$ 7BR, IF EQUAL (ALL IS WELL) 

6580 061410 005237 002212 INC FATFLG BUMP 

6584 061414 ERRHRD ERRNO, T26LON,EXPREC [THE RLL BIT WAS NOT SET IN XSTO 
061414 104456 TRAP CSERHRD 
061416 001210 «WORD 648 
061420 074100 “WORD T26LON 
061422 015564 -WORD EXPREC 

6585 061424 180$:  CKLOOP sLOOP IF SELECTED 
061424 104406 TRAP — C$CLP1 





++ 


6586 061426 
o2et 061432 


6611 


SESRESEES 
SOONAUMUSWI 


6628 061554 
061554 


061554 
6629 061556 
6630 061564 
6631 061566 
6632 061572 


012703 
013737 


012737 
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074332 
012136 
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013701 


004737 
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MOV #511. ,R3 
071722 MOV FREE, T26RB 


SET RECORD SIZE 
STARTING READ BUFFER ADDRESS 


FARRAR ARERERAEEEEEEREEREREEREEREEREEEEEREERERRERRERRERREREEE 


[REREAD DATA,CVC=1,ACK COMMAND 


: 
J ERAARARAERERERAAEAEREERREREEEEEREEERERRERRREREREERRRAERERREREREREEREERE 


071720 MOV #141001, T26PK3 
365$: tad #T26PK3,R4 


R3,726SZ 
MOV ort * pea 


REREAD DATA,CVC=1,ACK COMMAND 
SET UP R4 WITH PACKET ADDRESS 
412 UP RECORD SIZE IN PACKET 


MOV TSSR(RS) ,R1 GET TSSR CONTENTS 
MOV #SSR!ISC!BIT2,R2 SET UP EXPEC 

CMP R1,R2 7 ARE a ——— 
The :BR, IF O 


370$: CKLOOP 


I FATFLG 
ERRHRD ERRNO, T26TRL,PKTSSR 


;BUMP COUN 
:TSSR INCORRECT AFTER a DATA 


CSERHRD 
«WORD 649 
WORD T26TRL 
-WORD PKTSSR 
LOOP IF SELECTED 
TRAP C$CLP1 


FEAR REREEEAERRAAEERHRERREEERAEREEREEREREERREREREREE 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


@ 
FEAR AREA AERA RARAAAAAEEEEEERERRERREREERRERRERREEREREREEERERARREREEE 


MOV T26BER+6,R1 

BIS #BiT12,R2 
R1,R2 

BEQ 380$ 

INC 

ERRHRD 


380$: CKLOOP 


ENDSUB 


000017 CMP FATFLG,#15. 
999$ 


JSR PC, CKDROP 
999$: 


FATFLG 
ERRNO, T26LON,EXPREC 


GET MESSAGE BUFFER 
SET UP EXPECTED 

7SET THE RLL rt IN EXPECTED 
SARE THEY EQU 

:BR, IF FOUAL (ALL IS WELL) 
BUMP COUNT 


THE RLL BIT WAS NOT SET —" 


CSERHRD 
« 650 

-WORD T26LON 

“WORD EXPREC 

TRAP CSCLP1 

y>>>>>>>>>>>> ne >>>>>>>>>>>> 

L 
TRAP CSESUB 


a3S ERROR COUNT AT 25 
IF LESS THAN 25 
TRY TO DROP THE UNIT 


SEQ 0271 


ond 
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TEST 6: REREADS SEQ 0272 

6634 3+ 

6635 : 

$636 sTEST 6, SUBTEST 6 

6638 S VERIFIES THAT A REREAD PREVIOUS COMMAND READING A 

6639 sRECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES 

6640 3TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 

6641 SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE 

6642 sRESIDUAL BYTE COUNTER (RBPCR) IN "4 MESSAGE BUFFER 

6643 sCONTAINS THE PROPER NONZERO VALUE ( 

6644 ‘DIFFERENCE BETWEEN THE ORIGINAL BYTE C OUNT AND THE 

6645 ;ACTUAL RECORD LENGTH). aie ARE VERIFIED FOR BOTH 

6646 S STATES OF OPP (0 AND 1) 

6647 3 

6648 : 

$650 . 

6651 061572 : BGNSUB y>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
061572 76.6: 
061572 104402 TRAP C$BSUB 

6652 061574 004737 074510 JSR PC, T26REST sSET COMMAND PACKET 

6653 061600 004737 074602 JSR PC, T26RT2 sSET UP OTHER COMMAND PACKET 

$638 061604 004737 074644 JSR PC, T26RT3 ;SET UP OTHER COMMAND PACKET 

6656 SERRA ERERAAAEEERERRAEREREEEEREEKEREREREREEREERERERERERREREREKERRKKEEE 

6657 : 

e628 Zs ISSUE CONTROLLER ‘’SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 

6660 SRRRRERERRERERERRRRRERERERERERRERR RRR ERRER EERE RRR REE RRR REE EERE 

6661 

6662 061610 004737 016064 JSR PC,SOFINIT 300 eee te ON CONTROLLER 

6663 061614 103407 BCS 20$ SBR IF INIT WAS OK 

6664 061616 005237 002212 INC FATFLG BUMP COUNT 

6668 061622 010001 MOV RO,R1 : CONTENTS OF TSSR REGISTER 

6669 061624 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
061624 104455 TRAP CSERDF 
061626 001213 -WORD 651 
061630 003650 -WORD SFIERR 
061632 012124 -WORD SFIMSG 

comp 061634 013737 002172 071620 20$: MOV UNITN, T26DSW ;SET UP UNIT NUMBER 

ph 061642 012704 071600 MOV #T26PACKET,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 

6674 SAARAAEAAARAAREREEAEERAEEEREREREEREERRERRAERRAEEERERRAERAREREEREERERREEEE 

6675 : 

core sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

6678 TITTITITILELITT LITT L TTT LTT ELIT ET Titi TTT Te TTT TTT eet Te 

6679 

6680 061646 004737 010752 JSR PC,WRTCHR ; ISSUE WRITE CHARACTERISTICS 

6681 061652 103407 BCS 26$ ‘BR, IF COMMAND ISSUED OK 

6682 061654 005237 002212 INC FATFLG 38 COUNT 

6686 061660 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
061667 ERRHRD ERRNO,WRTMSG,SFIMSG WRITE CHARACTERISTISC rates 
061662 104456 CSERHRD 
061664 001214 Moore 


061666 005054 -WORD WRTMSG 
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TEST 6: RERE SEQ 0273 
061670 012124 .WORD SFIMSG 
6688 061672 26$:  CKLOOP ;LOOP IF SELECTED 
eo 061672 104406 TRAP — C$CLP1 
6690 FERRARA ERAARAAEERERERERERRERAREAAEREEERERAREEREERERREREREEREERE 
6691 : 
6692 TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
6694 ITITITITITITITILL LTTE LITTLE LILITi TTL Ei i Titi ii TTT eee 
6695 
6696 061674 004737 011104 JSR PC REWIND CALL TAPE REWIND COMMAND 
6697 061700 103413 BCS 30$ ‘BR, IFN PROBLEM 
6698 061702 016501 000002 MOV TSSR(RS) ,R1 GET ESR” 
6699 061706 012702 000200 MOV #SSR,R2 ‘SET UP EXPECTED TSSR 
6700 061712 910004 MOV RO,R4 SPACKET ADDRESS SET UP 
6701 061714 005237 002212 INC FATFLG [BUMP COUNT 
6705 061720 ERRHRD ERRNO, T26RWN,PKTSSR ‘REWIND NOT ACCEPTED 
061720 104456 TRAP  CSERHRD 
061722 001215 «WORD 653 
061724 073254 “WORD T26RWN 
061726 012136 "WORD  PKTSSR 
6706 061730 30$:  CKLOOP ;LOOP IF SELECTED 
ois 061730 104406 TRAP — C$CLP1 
6708 FRAAARAERAARERAEEEEEAEREEEEEREREERERRAREEEERREEEEREREEEEEREEKRREEEE 
6709 ; 
6710 ZREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
ore I TITITITTLETITILE ELITE LTT TELL TTT TTT TTT TTT TTT 
671 
6714 061732 013701 071630 MOV T26BFR+6,R1 :PICK UP XSTO 
6715 061736 010102 MOV R1,R2 :SET UP EXPECTED 
6716 061740 052702 000002 BIS #BiT1,R2 :SET BOT BIT IN EXPECiED 
6717 061744 020102 CMP R1,R2 [DOES EXP = REC'D 
6718 061746 001406 BEQ 40$ BR, IF EQUAL (OK) 
6719 061750 005237 002212 INC FATFLG ‘BUMP COUNT 
6723 061754 ERRHRD ERRNO, T26B0T, EXPREC [TAPE NOT AT BOT AFTER REWIND 
061754 104456 CSERHRD ‘ 
061756 001216 Teono 654 
061760 072765 “WORD  T26B0T 
061762 015564 “WORD EXPREC 
6724 061764 40$:  CKLOOP :LOOP IF SELECTED 
1764 104406 TRAP _— CS$CLP1 
6725 061766 012703 000400 MOV #256. ,R3 :RECORD SIZE 
6726 061772 013,57 903114 071722 MOV FREE, * 156RB ZSTARTING WRITE BUFFER ADDRESS 
6728 FERRARA AAAAEAEEEREEEAEEEEEREREEAERAERAERAEEEREREREREAEEEREEREREERRREEEE 
6729 : 
6730 [WRITE DATA,CVC=1,ACK COMMAND 
ors TITITITITILTT LE TTTE LTTE LET LETTE TTT Tite TTT TTT TTT TTT TTT TT 
67 
6734 062000 012737 140005 071720 MOV #140005, T26PK3 sWRITE DATA,CVC=1,ACK COMMAND 
6735 062006 012704 071720 oe MOV #T26PK3.R4 [SET UP R4 WITH PACKET ADDRESS 
6737 062012 010337 071726 "mov R3,726S2 :SET UP RECORD SIZE IN PACKET 
6738 062016 010465 000000 MOV R4.TSDB(RS) [ISSUE COMMAND 





6739 062022 


062054 
6749 062056 


062056 
6750 062060 
or3} 062064 


0 
6781 062152 
6782 062156 
6783 062160 
6784 062164 
6785 062166 
6786 062170 
6790 Oot 





004737 


005237 
104456 


06 
005237 
104456 


0 

012136 
104406 
013701 
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015564 
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071722 


071720 


JSR PC ,WAITF 
MOV TSSR(R5),R1 
MOV #SSR,R2 
CMP R1,R2 

BEQ 75$ 

INC 


FATFLG 
ERRHRD ERRNO,WRTERR,PKTSSR 


75$: CKLOOP 


MOV #512. ,R3 
MOV FREE, T26RB 


sWAIT FOR SSR TO SET 


ZARE Hog EQUAL 


‘BUMP COUNT 
‘TSSR INCORRECT AFTER WRITE DATA 


CSERHRD 
WORD 655 
«WORD WRTERR 


«WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CSCLP1 
sRECORD 


SIZE 
STARTING READ BUFFER ADDRESS 


FARRAR AAARERREERAEEEEREEREREREREERARAHRERERREREREEEREREEREREREEREEEE 


[REREAD PREVIOUS, ACK,CVC=1,0PP=1 


. 
FRA AAAAAEAAAAAEAAEEARERAEAEEEERERERERERRAERERAREREREREEREREREKEKKEKEEEE 


MOV #161001, a 
165$: MOV #T26PK3,R4 


R3, 1268? 

MOV R4.TSDB(RS) 

JSR PC. WAITF 

MOV TSSR(R5)R1 

MOV #SSR'SC!BIT2,R2 
R1,R2 

BEQ i708 


INC FATFLG 
ERRHRD ERRNO, T26TRL,PKTSSR 


170$: CKLOOP 


REREAD PREVIOUS ,ACK,CVC=1 ,OPP=1 
7SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 

2 ISSUE COMMAND 


U 
;WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
:SET UP EXPECTED 
zARE THEY EQUAL 
IF OK 


: COUNT 

:TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 

-WORD 65 


6 
«WORD T26TRL 
-WORD PKTSSR 


TRAP CSCLP1 


LOOP IF SELECTED 


FARRAR EAAARARERAAREERERERAERARERREREAREEEAERERARERERRERERERREEREE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


e 
FARRAR ARERAREREEARAARAAEEEREREERARERAARAARARERERERERERREREREREREEEREREE 


MOV taser nes. R1 


MOV 
BIS Raitis. R2 
CMP R1,R2 
BEQ 180$ 


INC FATFLG 
ERRHRD ERRNO, T26LOP,EXPREC 


2GET MESSAGE BUFFER 

SET UP EXPECTED 

7SET THE RLS x IN EXPECTED 
SARE THEY EQU 

:BR, IF EQUAL {ALL IS WELL) 


[THE RLL BIT WAS NOT SET IN XSTO 
TRAP CSERHRD 
-WORD 657 


-WORD T26LOP 
-WORD EXPREC 


— 3 


6791 062204 
04 


6802 240 
6803 062244 
6804 
6805 


6806 

6807 

6808 

6809 

6810 

6811 062252 

6812 062260 

6813 062264 

6814 062270 

6815 062274 

6816 062300 

6817 062304 

6818 062310 

6819 062312 

6820 062314 

6824 062320 
0623 
062322 


| TSV7 = rete P eatin 1-8 
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012737 


005237 
104456 


012136 
104406 


013701 


005337 


104456 
001224 
074162 


071626 
000400 


002212 


001000 
003114 


141001 
0 


100204 


002212 


071630 
040000 


002212 
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071722 


071720 


180$: 


190$: 


CKLOOP 


TRAP 
MOV T26BFR+4,R1 rate UP RESIDUAL BYTE COUNTER 


MOV #256. ,R2 [THIS SHOULD BE THE DIFFERENCE 

CMP R1,R2 ‘1S THE DIFFERENCE CORRECT 

BEQ 196$ ‘BR, IF CORRECT 

INC FATFLG ; OUNT 

ERRHRD ERRNO, T26PBP,EXPREC ‘RBPCR NOT CORRECT ia 
WORD 
“WORD 
“WORD 

CKLOOP ;LOOP IF SELECTED 
TRAP 


MOV #512. ,R3 


:RECORD 
MOV FREE, T26RB 


SIZE 
STARTING READ BUFFER ADDRESS 


FARRAR ERAREEEAREREREEEEERAREREEAREEERREREERERRRAEREREEEEREKEERKEEE 


REREAD PREVIOUS ACK ,CVC=1,0PP=0 


2 
FARRAR AARAERERARRERAEREEERERREEEEERAERRERERREREEEREREREERERREKKEKEE 


270$: 


MOV #141001, T26PK3 


MOV #T26PK3,R4 T UP R4 WITH PACKET ADDRESS 
MOV RS. T26SZ SET UP RECORD SIZE IN PACKET 
MOV R4, hye ee 2 ISSUE COMMAND 

JSR PC ,WAITF ;WAIT FOR SSR TO SET 


MOV TSSR(RS),R1 [GET TSSR CONTENTS 
MOV #SSR!SC'BIT2,R2 :SET UP EXPECTED 

R1,R2 TARE THEY EQUAL 
BEQ 270$ BR, IF OK 


INC FATFLG 
ERRHRD ERRNO, T26TRL’,PKTSSR 


CKLOOP LOOP IF SELECTED 


TRAP 


SARA AARAEEAAERERAEREEAEEEERERARERARAERERERERAEREEEREEERERERERRKEKEEEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


. 
° 
PERERA AEEEREREAREREEERERERERAEREEREERREREREREEREREEEEEERREEEEEEE 





MOV T26BFR+6,R1 2GET iS tenact BUFFER 


MOV R1,R2 “SET UP EXPECTED 

BIS #B1T14,R2 [SET THE RLS BIT IN EXPECTED 

CMP R1,R2 SARE THEY EQUAL 

BEQ 280$ 7BR, IF EQUAL (ALL IS WELL) 

INC FATFLG ‘BUMP T 

ERRHRD ERRNO, T26LOP,EXPREC [THE RLL BIT WAS NOT SET IN xSTO 
WORD 
“WORD 


: COUNT 
zTSSR INCORRECT AFTER READ DATA 


SEQ 0275 


CSCLP1 


CSERHRD 
658 
T26PBP 
EXPREC 


CS$CLP1 


REREAD PREVIOUS ,ACK,CVC=1 ,OPP=0 


CSERHRD 
659 


T26TRL 
PKTSSR 


CSCLP1 


ce 
T26LOP 


062410 
062412 
6852 aesele 
6853 062416 
062416 
062416 
6854 062420 
6855 062426 
6856 062430 
6857 062434 
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015564 


02 
001405 
104456 


015564 
104406 


104403 


004737 


071626 
000400 


002212 000017 
017272 


280$: 


2908: 


999$: 


CKLOOP 


B 
ERRHRD 


CKLOOP 
ENDSUB 


F 6 
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Tegernes mt 


290$ 
ERRNO, T26PBP,EXPREC 


FATFLG,#15. 
999$ 
PC,CKDROP 


SEQ 0276 
«WORD EXPREC 


TRAP CSCLP1 
sPICK UP RESIDUAL BYTE COUNTER 
sTHIS SHOULD BE THE DIFFERENCE 
31S THE DIFFERENCE CORRECT 
:BR, IF CORRECT 
:RBPCR NOT CORRECT 
TRAP oo 


60 
-WORD T26PBP 
«WORD EXPREC 
sLOOP IF SELECTED 
CSCLP1 


RAP 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10110: 


TRAP C$ESUB 
31S ERROR COUNT AT 25 
2BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 


ae 


Ree 
TSV7 - HARDWARE gTests 1-8 
| TEST 6: REREAD 
6859 
6860 
6861 
686 
686 
6864 
6865 
6866 
6867 
6868 
6869 
6870 
6871 
6872 
6873 
6874 
6875 
6876 
6877 
6878 
6879 0624 
062434 
062434 104402 
062436 004737 074510 
6881 062442 004737 074602 
6882 062446 004737 074644 
6883 
6884 
6885 
6886 
6887 
6888 
6889 
6890 062452 004737 016064 
6891 062456 103407 
6892 062460 005237 002212 
6896 062464 010001 
6897 062466 
062466 104455 
062470 00122 
062472 003650 
062474 012124 
6898 062476 013737 002172 
6900 062504 012704 071600 
6901 
6902 
6903 
6904 
6905 
6906 
6907 
6908 062510 004737 010752 
062514 103407 
ono 0 062516 005237 002212 
6914 062522 010001 
6915 062524 
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071620 


+ 


;TEST 6, SUBTEST 7 


VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0 
WB=0 eterna PROPERLY. THE TAPE Se rer 
OND AND THEN WRITTEN WITH A SERIES 0 

TRECORDS VARYING IN LENGTH AND DATA CONTENT. “The TAPE 
21S THEN REWOUND AGAIN. FOR EACH TEST RECORD, TH 
TAPE IS SPACED FORWARD ONE RECORD AND A REREAD 
NEXT COMMAND ISSUED. RESULTS (STATUS, DATA, 
ashe ) ARE eee cet THE BYTE COUNT ON EACH REREAD 

XT COMMAND IS SET TO THE LENGTH OF THE EXPECTED 
=RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
~ "TRAP ~——sC$BSUB 
JSR PC, T26REST :SET COMMAND PACKET 
JSR PC, T26RT2 :SET UP OTHER COMMAND PACKET 
JSR PC, T26RTS 7SET UP OTHER COMMAND PACKET 
FARA ERAAEEEREREREREEREREEERARAEEEREREERERERAEEEREREREEREEREEEREKERE 
+ ISSUE CUNTROLLER “"SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
ITI TITILIELITILELELETE LETTE LETT TTT TTT eet TTT TTT TTT 
JSR PC, SOFINIT 3d0 ina aM 178 A CONTROLLER 
BCS 20$ :BR IF INIT WAS OK 
INC FATFLG :8 COUNT © 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
eWORD 661 
«WORD SFIERR 
-WORD SFIMSG 
20$: MOV UNITN, T26DSW :SET UP UNIT NUMBER 
MOV #T26PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


FERRARA ARAEARAEREREEEREAERAEERERREREREREREEREEEREERERERREEREREE 


WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


. 
° 
FERAAAAEAEAAEERAEEAEAREREREEAREEAEARAAEAAEAEREEEERAEREEEERERERERREEEREEEEEE 


JSR PC,WRTCHR : ISSUE WRITE CHARACTERISTICS 
BCS 26$ . IF COMMAND ISSUED OK 

INC FATFLG COUNT 

OV “SAVE CONTENTS OF 


M RO,R1 TSSR 
ERRHRD ERRNO,WRIMSG, SF IMSG WRITE CHARACTERISTISC FAILED 


SEQ 0277 


PSE, i oly Cid Ea eee Ee 
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062524 456 TRAP CSERHRD 
062526 Oo1336 .WORD 662 
062530 005054 “WORD WRTMSG 
062532 012124 “WORD SFIMSG 

6916 062534 26$: CKLOOP ;LOOP IF SELECTED 

wee 062534 104406 TRAP — C$CLP1 

6918 FARRAR AAAAAAAAEREARERERERERAERARRARERERAEEERRAERAEEEEREEEEEREEREEEE 

6919 : 

6920 TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

3554 PITTTTITTILILILILLIT TLL LTT LTT TTI T TT iTT iit ii Teri TTT 

6 
062536 004737 011104 JSR PC,REWIND 2a gt oot ay COMMAND 

6925 062542 103413 BCS 30$ 7BR, IF NO PROBLEM 

6926 062544 016501 000002 MOV TSSR(RS) RI [GET TSSR 

6927 062550 012702 000200 MOV #SSR,R2 :SET UP EXPECTED TSSR 

6928 062554 010004 MOV RO,R4 ;PACKET ADDRESS SET UP 

6929 062556 005237 002212 INC FATFLG COUNT 

6933 062562 ERRHRD ERRNO, T26RWN,PKTSSR TREWIND NOT ACCEPTED 
062562 104456 TRAP CSERHRD 
062564 001227 «WORD 663 

2566 073254 “WORD T26RWN 

062570 012136 “WORD PKTSSR 

6934 062572 30$: CKLOOP ;LOOP IF SELECTED 

aa 062572 104406 TRAP — C$CLP1 

oe FERRARA RAAARARAEAEARERAEERERARERARAAEARERREREEREEREEREERRERERREREREEEE 

6937 : 

6938 TREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

6940 ITI TITILELLTILELE LETTE LTLE LETTE TTT TTT TTT TTT TTT TTT 

6941 

6942 062574 013701 071630 MOV T26BFR+6,R1 ;PICK UP XSTO 

6943 062600 010102 MOV R1,R2 ZSET UP EXPECTED 

6944 062602 052702 000002 BIS #B1T1, R2 sSET BOT BIT IN pwrentee 

6945 062606 020102 CMP R1,R2- [DOES EXP = REC'D 

6946 062610 001406 BEQ 408 : BR, IF EQUAL (OK) 

6947 062612 005237 002212 INC TFLG [BUMP COUNT 

6951 062616 ERRHRD ERRNO T26B0T -EXPREC : TAPE NOT AT BOT AFTER — 
062616 104456 CSERHRD 
062620 001230 TeoRD 664 
062622 072765 “WORD  T26B0T 
062624 015564 -WORD EXPREC 

6952 062626 40$:  CKLOOP ;LOOP IF SELECTED 
062626 104406 TRAP CSCLP1 

6953 062630 012703 000400 MOV #256. ,R3 :RECORD SIZE 

oh: 26 013737 003114 071722 MOV FREE, T26RB sSTARTING WRITE BUFFER ADDRESS 

6956 SARA RAAREAAREAAEAAAEAAREAAEREERARAEEAAEAAARAREREAARERAREREEREREREREREREEEEE 

6957 : 

6958 [WRITE DATA,CVC=1,ACK COMMAND 

6960 PITITITILILITITILE LTTE TL ETL TLE T TTT TTT TTT TTee 

6961 

6962 062642 012737 140005 071720 MOV #140005, T26PK3 ;WRITE DATA,CVC=1,ACK COMMAND 

6963 062650 012704 071720 MOV #T26PK3.R sSET UP R4 WITH PACKET ADDRESS 





co-oo- + —- + hr 


| 
| 


sv? rent ~~ 1-8 


TEST 6: RERE 


6964 062654 
or0? 06 o2e 


972 062706 
6975 062710 
6974 062712 
6978 062716 

062716 


062724 
6979 062726 
062726 
6980 062730 
6981 062732 
6982 062736 


6983 062740 
062740 
aces 062742 


9 
ie 063000 
7011 063004 


104406 


004737 


00 
073254 
012136 


104406 
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SEQ 0279 


65$: 
MOV R3,RO iSET PATTERN IN CORRECT REGISTER 
017512 JSR PC, FILLMEM LL MEMORY WITH RECORD SIZE 
071726 MOV R3, 12682 ‘Set UP RECORD SIZE IN PACKET 
00 MOV Ra. TSDB(RS) : ISSUE COMMAND 
016340 JSR PC WA SWAIT FOR SSR TO SET 
000002 MOV TSéRCES), R1 ‘GET TSSR CONTENTS 
000200 MOV #SSR,R2 :SET UP EXPECTED 
CMP R1,Re TARE THEY EQUAL 
BEQ 75$ 7BR, IF OK 
002212 INC FATFLG [BUMP COUNT 
ERRHRD ERRNO,WRTERR,PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
TRAP  CSERHRD 
.WORD 665 
-WORD WRTERR 
“WORD PKTSSR 
75$:  CKLOOP ;LOOP IF SELECTED 
TRAP _— CS$CLP1 
TST (R3)+ :BUMP RECORD SIZE 
000414 CMP #268. ,R3 3END OF RECORD YET 
BNE 65$ IF MORE RECORDS TO WRITE 
80$:  CKLOOP :LOOP IF SELECTED 
TRAP — C$CLP1 
120$: 
FAAAAAAERERAEAREERAERRREREREERRARREEAEREREREREREERAERERREREEEEKEEREKEE 
ZISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
PT TTITITITILITITE LETT LET EL TLE TT TTT TTT TTT TTT TTT 
011104 JSR PC REWIND CALL TAPE REWIND COMMAND 
BCS 1 R, IFN PROBLEM 
000002 MOV TSSR(RS) RI ‘e t TSSR- 
000200 MOV #SSR,R2 [SET UP EXPECTED TSSR 
MOV RO,R4 [PACKET ADDRESS SET UP 
002212 INC FATFLG ‘BUMP COUNT 
ERRHRD ERRNO, T26RWN,PKTSSR ‘REWIND NOT ACCEPTED 
TRAP  CSERHRD 
«WORD 666 
“WORD T26RWN 
“WORD PKTSSR 
130$:  CKLOOP :LOOP IF SELECTED 
TRAP — CSCLP1 
SERA AAAEAEAAEERAEEAEREREREEEEREEREEEERARERAEERERREEREREREKREREERREREREEE 
ZREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
PT TTTTTTTLTTTTELELETT LETT TELE TTT TTT TTT TTT TTT TTT TTT TTTe 
071630 MOV T26BFR+6,R1 ;PICK UP XSTO 
MOV aR :SET UP EXPECTED 
000002 BIS #BiT1,R2 7SET BOT pelt IN EXPECTED 
CMP R1,R2 [DOES EXP = REC* 
BEQ 146$ BR, IF EQUAL (OK) 
002212 INC FATFLG ‘BUMP COUNT 





=e 





——--—_-—-— 


J 
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7019 063022 ERRHRD ERRNO, T26BOT, EXPREC :TAPE NOT AT BOT AFTER REWIND 
063022 eg ts TRAP CSERHRD 
063024 00123 «WORD 667 
063026 072765 “WORD T26B80T 
063030 015564 “WORD EXPREC 

7020 063032 140$:  CKLOOP :LOOP IF SELECTED 
063032 104406 TRAP — C$CLP1 

7021 063034 012737 000400 071752 MOV #256. ,T26RSZ ZSTORE START RECORD SIZE 

70¢2 063042 000420 BR 150$ ‘SKIP THE SAPCE THIS TIME 

7024 aaa aaa aaa ila ita iia 

7025 

7026 TISSUE SPACE RECORDS COMMAND = VALUE IN R3 SETS NUMBER OF RECORDS 

087 :B1T 15 SETS DIRECTION = O=FORWARD ' 1=REVERSE 

7029 SERRE DNRRRNRNIRANRENNNDNNNRAeNNNNNN 

7030 

7031 063044 012703 000001 145$: MOV #1,R3 ZSPACE ONE RECORD PARAMETER 

7032 063050 004737 010556 JSR PC,SPACE sCALL SPACE ROU 

7033 063054 103413 BCS 150$ :BR. IF NO PROBLEM WITH SPACE COMMAND 

7034 063056 016501 000002 MOV TSSR(RS),R1 [GET TSSR 

7035 063062 012702 000200 MOV #SSR,R2 SSET UP EXPECTED TSSR 

7036 063066 010004 MOV RO, “R SPACKET ADDRESS SET UP 

7037 063070 005237 002212 INC TFLG SBUMP COUNT 

7041 063074 ERRHRD ERRNO’ T26SC,EXPREC SPOSITION (SPACE RECORDS) FAILED 
063074 104456 TRAP  CSERHRD 
063076 001234 «WORD 668 
063100 072367 “WORD T26SC 
063102 015564 <WORD EXPREC 

7042 063104 150$:  CKLOOP 
063104 104406 TRAP _— C$CLP1 

7043 063106 013703 071752 MOV T26RSZ,R3 :RECORD SIZE 

7044 063112 013737 003114 071722 MOV FREE, T26RB TSTARTING READ BUFFER ADDRESS 

7046 FERRARA RAREEAARERAEEEEEREEREEEEREREERAEARERREREREEREEREEEERREREEEEERE 

7047 : 

7048 SREREREAD DATA,CVC=1,ACK COMMAND 

7050 TTT TTITILIELTLELELELTT TTL TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 

7051 

7052 063120 012737 141401 071720 MOV #141401, T26PK3 ZREREREAD DATA,CVC=1,ACK COMMAND 

7053 063126 012704 071720 165$: MOV #T26PK3,RG [SET UP R& WITH PACKET ADDRESS 

7054 063132 010337 071726 MOV R3,126S2 [SET UP RECORD SIZE IN PACKET 

7055 063136 010465 000000 MOV R4.TSDB(RS) : ISSUE COMMAND 

7056 063142 004737 016340 JSR PC: WAITF ‘WAIT FOR SSR TO SET 

7057 063146 016501 000002 MOV TSSR(R5) RI [GET TSSR CONTENTS 

7058 063152 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 

7059 063156 020102 CMP R1,R2 SARE THEY EQUAL 

7060 063160 001406 BEQ 170$ 7BR, IF OK 

7061 063162 005237 002212 INC FATFLG [BUMP COUNT 

7065 063166 ERRHRD ERRNO, T26WDC,PKTSSR [TSSR INCORRECT AFTER REREAD DATA 
063166 104456 TRAP — CSERHRD 
063170 001235 «WORD 669 
063172 073610 “WORD  T26WDC 
063174 012136 “WORD PKTSSR 

7066 063176 170$:  CKLOOP ;LOOP IF SELECTED 
063176 104406 TRAP — CSCLP1 





ee a eee ee 








236 
7080 063240 
40 


7087 063260 
7088 64 
7089 063266 
63266 

7090 063270 
063270 
063270 

7091 063272 
7092 063300 
7093 063302 
7094 063306 





013702 
01 


104406 
104403 


004737 
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003114 
000400 


002212 


071752 


000410 


002212 
017272 
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000017 


173$: 


180$: 


190$: 





ERRHRD 


CKLOOP 
TST 


FREE ,R2 
#256. .R4 
R2_R 
(R&) ,R3 
180$ 
(Re) R1 


3,R2 


FATFLG 
ERRNO, T26DTA, EXPREC 


RS, T26RSZ 
#264. ,R3 
45$ 


FATFLG,#15. 
999 
PC,CKDROP 


; CURRENT BUFFER ADDRESS TO _R2 
sCURRENT RECO 


RD SIZE 
FIRST LOCATION IN BUFFER 


sREC A 

sEXPECTED DATA 

sDATA READ NOT = WRITTEN 
TRAP 
«WORD 
«WORD 
«WORD 


sLOOP IF SELECTED 


BUMP TO NEXT LOCATION 
: CORRECT ry bang SIZE VALUE 


E ND OF as. 

IF NOT AT END OF RECORD 
{BUMP RECORD SI 
: STORE "aitiee RECORD SIZE 
END OF RECORD YET 
BR, IF MORE RECORDS TO READ 
LOOP IF SELECTED 


SET UP POIN 
;CHECK DATA READ (R3=DATA ALSO) 
IF ALL IS WELL 


CSERHRD 
670 
T26DTA 
EXPREC 


CSCLP1 


C$CLP1 


TRAP 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10111: 


TRAP 
31S ERROR COUNT AT 25 
:BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 


CS$ESUB 


SEQ 0281 
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TEST 6: REREAD SEQ 0282 

7096 7¢ 

7097 : 

Ag : TEST 6, SUBTEST 8 

7100 ;VERIFIES, THAT THE REREAD NEXT COMMAND WITH OPP=0 

7101 SAND SWB=1 OP = rs oe en thd THE TEST se OUERCE IS 

7102 :THE SAME AS THAT USED IN SUBTEST 1, BUT IT IS 

7103 VERIFIED THAT. DATA STORED BY THE COMMAND CONTAINS 

7104 ; SWAPPED BYTES. 

7105 ; 

7106 ; 

184 : 

7109 063306 7 BGNSUB j>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
063306 76.8: 
063306 104402 TRAP C$BSUB 

7110 063310 004737 074510 JSR PC, T26REST :SET COMMAND PACKET 

7111 063314 004737 074602 JSR PC, T26RT2 ZSET UP OTHER COMMAND PACKET 

anes 063320 004737 074644 JSR PC, T26RTS 7SET UP OTHER COMMAND PACKET 

7114 LER EEREREEERERERERERERRREEERRERREEREREREERERRRRRRERERRERE 

7115 : 

44h 3 ISSUE CONTROLLER ‘‘SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 

7118 PITT TIITITELTTILT LTTE TT ETT TTL T TTT TTT TTT TTT TTT TTT TTT 

7119 

7120 063324 004737 016064 JSR PC, SOF INIT :D0 iP cait ce ON CONTROLLER 

7121 063330 103407 BCS 20$ 7BR IF INIT WAS OK 

7122 063332 005237 002212 INC FATFLG ;BUMP COUNT 

7126 063336 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

7127 063340 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
063340 104455 TRAP CSERDF 
063342 001237 «WORD 671 
063344 003650 «WORD SFIERR 
063346 012124 -WORD SFIMSG 

ries 063350 013737 002172 071620 20$: MOV UNITN, T26DSW :SET UP UNIT NUMBER 

at 063356 012704 071600 MOV #T26PACKET ,R4 SUBROUTINE NEEDS PACKET ADDRESS 

7132 FERRARA ERERERREREEREERRERERREREREEREREREREEREEKREREEE 

7133 ; 

af WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

7136 TTT TIITTITELTTE ETE LTTE LTT ELITE LT TTT TTT TTT TTT TTT TTT TTT TTT 

7137 

7138 063362 004737 010752 JSR PC, ,WRICHR ISSUE WRITE CHARACTERISTICS 

7139 063366 103407 BCS 26$ :BR, IF COMMAND ISSUED OK 

7140 063370 005237 002212 INC FATFLG 28 

7144 063374 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

7145 063376 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
063376 104456 TRAP CSERHRD 
063400 001240 «WORD 672 
063402 005054 -WORD WRTMSG 
063404 012124 -WORD SFIMSG 

7146 063406 268: CKLOOP ;LOOP IF SELECTED 


104406 TRAP CSCLP1 





Ld 
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TEST 6: REREAD SEQ 0283 

7148 SERRATE RERERAREREREREREREERERAEAREREEEREREAEEREREERREEEERREEEE 

7149 ; 

at! ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

7152 ITTTTITILILILILL LILI LILLTL LLL TTT TTT TTT iiiT Tei iTT TTT TTT TTT 

7153 

7154 063410 004737 011104 JSR PC REWIND + a REWIND COMMAND 

7155 063414 103413 BCS 6-308 Re IF NO PROBLEM 

7156 063416 016501 000002 MOV TSSR(R5),R1 Get T SSR 

7157 063422 012702 000200 MOV #SSR,R2 7 SET UP EXPECTED TSSR 

7158 063426 010004 MOV RO,R4 PACKET ADDRESS SET UP 

7159 063430 005237 002212 INC FATFLG [BUMP COUNT 

7163 063434 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
063434 104456 TRAP CSERHRD 
063436 001241 «WORD 673 
063449 073254 -WORD T26RWN 
063442 012136 -WORD PKTSSR 

7164 063444 30$: CKLOOP LOOP IF SELECTED 

7165 063444 104406 TRAP CSCLP1 

7166 FERRARA EREREEEREREEEEERREEEEEEREREEREERERERREREEREREE 

7167 ; 

ries zREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

7170 TT TTITTITELTLELEL LETT TELE TTL LETT TTT TTT TTT TTT TTT TTT TTT 

7171 

7172 063446 013701 071630 MOV T26BFR+6,R1 PICK UP xSTO 

7173 063452 010102 MOV R1,R2 SET UP EXPECTED 

7174 063454 052702 000002 BIS #B1T1,R2 SET BOT —s IN hates 

7175 063460 020102 CMP R1,R2 :DOES EXP = REC'D 

7176 063462 001406 BEQ 40$ :BR. u EQUAL (OK) 

7177 063464 005237 002212 INC FATFLG :BUMP COUNT 

7181 063470 ERRHRD ERRNO, T26B0T,EXPREC ; TAPE NOT AT BOT AFTER — 
063470 104456 CSERHRD 
063472 001242 TGORD 674 
063474 072765 -WORD T26BOT 
063476 015564 -WORD EXPREC 

7182 063500 40$: CKLOOP ;LOOP IF SELECTED 
063500 104406 TRAP CSCLP1 

7183 063502 012703 000400 MOV #256. .R3 RECORD SIZE 

eine 063506 013737 003114 071722 MOV FREE, T26RB STARTING WRITE BUFFER ADDRESS 

7186 FERRARA R EEE EEEEREAEAEEEREREERERERERRRREERERREREERERED 

7187 : 

eee sWRITE DATA,CVC=1,ACK,SWB COMMAND 

7190 TTTTITT TILE TILE LETT ETE TET LETTE TTT e TTT TTT TTT TTT TTT TTT 

91 

7192 063514 012737 150005 071720 MOV #150005 , T26PK3 WRITE DATA,CVC=1,ACK,SWB C 

Ab 063362 012704 071720 658 MOV #T26PK3,R4 7SET UP R4 WITH PACKET ADDRESS 

7195 063526 010300 "MOV «RB, RO SET PATTERN IN CORRECT REGISTER 

7196 063530 004737 017512 JSR PC,FILLMEM FILL MEMORY WITH RECORD SIZE 

7197 0635 010337 071726 MOV R3,126S2 SET UP RECORD SIZE IN PACKET 

7198 063540 010465 000000 MOV R4, TSDB(RS) ISSUE C D 

7199 063544 0047357 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 


7200 063550 016501 000002 MOV TSSR(R5) RI [GET TSSR CONTENTS 
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7201 063554 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 

7202 063560 020102 CMP R1,Re SARE THEY EQUAL 

7203 063562 001406 BEQ 75$ ‘BR, IF OK 

7204 063564 005237 002212 INC FATFLG ‘BUMP COUNT 

7208 063570 ERRHRD ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
063570 104456 TRAP CSERHRD 
063572 001243 .WORD 675 
063574 005111 «WORD WRTERR 
063576 012136 “WORD PKTSSR 

7209 063600 75$: CKLOOP ;LOOP IF SELECTED 

104406 TRAP _— C$CLP1 

7210 063602 005723 TST (R3)+ ;BUMP RECORD SIZE 

7211 063604 022703 000414 CMP #268. ,R3 sEND OF RECORD YET 

7212 063610 001346 BNE 65$ [BR, IF MORE RECORDS TO WRITE 

7213 063612 80$: CKLOOP ‘LOOP IF SELECTED 
063612 104406 TRAP _— C$CLP1 

7214 063614 120$: 

7216 FREER EREEEERERREEREREEREERERRREREREREERREREKEREEREEEE 

7217 ; 

ca ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

7220 SRRRRRERERERERERREREREREERERRREE EERE RRR EERE ERE 

7221 

7222 063614 004737 011104 JSR PC,REWIND ;CALL TAPE REWIND COMMAND 

7223 063620 103413 BCS 130$ 7BR, IF NO PROBLEM 

7224 063622 016501 000002 MOV TSSR(RS) RI “GET TSSR 

7225 063626 012702 000200 MOV #SSR,R2 SSET UP EXPECTED TSSR 

7226 063632 010004 MOV RO, =i ‘PACKET ADDRESS SET UP 

7227 063634 005237 002212 INC TFLG ‘BUMP COUNT 

7231 063640 ERRHRD ERRNO. T26RWN,PKTSSR sREWIND NOT ACCEPTED 
063640 104456 TRAP  CSERHRD 
063642 001244 .WORD 676 
063644 073254 “WORD T26RWN 
063646 012136 "WORD PKTSSR 

7232 063650 130$: CKLOOP ;LOOP IF SELECTED 

an 063650 104406 TRAP  C$CLP1 

7234 : PERERA EEEEEEEREREREEREREREREREREREREERERAEREREREREEKEEEREEKRE 

7235 ; 

re38 ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

7238 : RERAEAEEARAEERAEEERERAEEEEEEERREEERKEREREKERREAREEREEEREREEEREEEERKEEEE 

7239 

7240 063652 013701 071630 MOV T26BFR+6,R1 sPICK UP xSTO 

7241 063656 010102 MOV R1,R2 :SET UP EXPECTED 

7242 063660 052702 000002 BIS #BIT1,R2 SET BOT BIT IN cMPeCteD 

7243 063664 020102 CMP R1,R2 [DOES EXP = REC'D 

7244 063666 001406 BEQ 140$ 7BR. IF EQUAL (OK) 

7245 063670 005237 002212 INC FATFLG UN 

7249 063674 ‘ ERRHRD ERRNO, T26B0T,EXPREC ‘TAPE NOT AT BOT AFTER REWIND 
063674 104456 TRAP CSERHRD 
063676 001245 «WORD 677 

072765 “WORD T26B0T 

063702 015564 “WORD EXPREC 

7250 063704 140$:  CKLOOP ;LOOP IF SELECTED 
063704 104406 TRAP — C$CLP1 
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7251 063706 012737 000400 071752 MOV #256. ,T26RSZ sSTART RECORD SIZE 
125¢ 063714 000420 BR 150$ [SKIP SAPCE THIS TIME 
7254 gta a aaa acti ale 
7255 
7256 : ISSUE SPACE RECORDS COMMAND = VALUE IN R3 SETS NUMBER OF RECORDS 
0257 BIT 15 SETS DIRECTION = O=FORWARD  1=REVERSE 
7259 | PAUSEROheNSSENERERENRENERNNNNNRASNReRRERERKEONNesEbeenReRENeens 
7260 
7261 063716 012703 000001 145$: MOV #1,R3 ZSPACE ONE RECORD PARAMETER 
7262 063722 004737 010556 JSR PC. SPACE [CALL SPACE R 
7263 063726 103413 BCS 156$ :BR, IF NO PROBLEM WITH SPACE COMMAND 
7264 063730 016501 000002 MOV TSSR(RS),R1 [GET TSSR 
7265 063734 012702 000200 MOV #SSR,R2 :SET UP EXPECTED TSSR 
7266 063740 010004 MOV RO,RS “PACKET ADDRESS SET UP 
7267 063742 005237 002212 INC FATFLG ‘BUMP COUNT 
7271 063746 ERRHRD ERRNO, T26SC,EXPREC ZPOSITION (SPACE RECORDS) FAILED 
063746 104456 TRAP _ CSERHRD 
063750 001246 .WORD 678 
063752 072367 “WORD  126SC 
063754 015564 “WORD EXPREC 
7272 063756 150$:  CKLOOP 
063756 104406 TRAP  C$CLP1 
7273 063760 013703 071752 MOV T26RSZ,R3 :RECORD SIZE 
rar 063764 013737 003114 071722 MOV FREE, 1T26RB ‘STARTING READ BUFFER ADDRESS 
7276 FRARAAAERAAERARRRARAEREREEERERERERERRAREERERERRAEEREREEREERERERERREREREEE 
7277 : 
7278 ZREREAD DATA,ACK,CVC=1,SWB COMMAND 
7280 ITITITILILITILELELILE LTTE LETTE Tite Tei Tree TTT e TTT TTT TTT TTT 
7281 
7282 063772 012737 151401 071720 MOV #151401, T26PK3 ZREREAD DATA, ACK,CVC=1,SWB COMMAND 
7283 064000 012704 071720 165$: MOV #T26PK3_R [SET UP R4 WITH PACKET ADDRESS 
7284 064004 010337 071726 MOV RST resi :SET UP RECORD SIZE IN PACKET 
7285 064010 010465 000000 MOV R4.TSDB(RS) SSUE COMMAND 
7286 064014 004737 016340 JSR PC. WAITF ‘WAIT FOR SSR TO SET 
7287 064020 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 
7288 064024 012702 000200 MOV #SSR,R2 ‘SET UP EXPECTED 
7289 064030 020102 CMP R1,R2 SARE THEY _EAUAL 
7290 064032 001406 BEQ 170$ BR, IF O 
7291 064034 005237 002212 INC FATFLG BUMP COUNT 
7295 064040 ERRHRD ERRNO, T26WDC,PKTSSR STSSR INCORRECT AFTER REREAD DATA 
064040 104456 TRAP  CSERHRD 
064042 001247 «WORD 679 
064044 073610 “WORD  T26WDC 
064046 012136 "WORD PKTSSR 
7296 064050 170$:  CKLOOP :LOOP IF SELECTED 
064050 104406 TRAP — CS$CLP1 
7297 064052 013702 003114 MOV FREE ,R2 :CURRENT BUFFER ADDRESS 10 R2 
7298 064056 010304 MOV R3,RG :CURRENT RECORD SIZE 
7299 064060 162704 000400 SUB #256. .R4 SFIRST LOCATION IN BUFFER 
060204 173$: ADD R2,R4 :SET UP POINTER 
301 064066 021403 CMP (RG) ,R3 [CHECK DATA READ (R3=DATA ALSO) 
2 064070 001410 BEQ 180$ BR, IF ALL IS WELL 


730, 
7303 064072 011401 MOV (R4),R1 ;RECD DAT 





we 
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7304 064074 010302 MOV R3,R2 sEXPECTED DATA 

7305 064076 005237 002212 INC FATFLG 3 T 

7309 064102 ERRHRD ERRNO, T26DTA,EXPREC ;DATA READ NOT = WRITTEN 
064102 104456 TRAP CSERHRD 
064104 001250 -WORD 680 
064106 073032 «WORD T26DTA 
064110 015564 «WORD EXPREC 

7310 064112 180$: CKLOOP ;LOOP IF SELECTED 
064112 104406 TRAP CS$CLP1 

7311 064114 005724 TST (R4)+ ;BUMP TO NEXT LOCATION 

7312 064116 160204 SUB R2,R4 s CORRECT RECORDS Size VALUE 

7313 064120 020403 CMP R4,R3 sEND OF RECORD 

7314 064122 001360 BNE 173$ 38R, IF NOT AT END OF RECORD 

7315 064124 005723 TST (R3)+ ;BUMP RECORD 

7316 064126 010337 071752 MOV Ne T26RSZ :STORE RECORD SIZE 

7317 064132 022703 000410 CMP #264. ,R3 sEND OF RECORD YET 

7318 064136 001267 BNE 145$ 3BR, IF MORE RECORDS TO WRITE 

7319 064140 190$: CKLOOP SLOOP IF SELECTED 
064140 104406 TRAP C$CLP1 

7320 064142 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
064142 L10112: 
064142 104403 TRAP CSE SUB 

4 064144 023727 002212 000017 CMP FATFLG,#15. zI1S ERROR COUNT AT 25 

7322 064152 103402 . BLO 999$ BR, IF LESS THAN 25 
7323 064154 004737 017272 JSR PC, CKDROP ;TRY TO DROP THE UNIT 


7324 064160 999$: 





pa 


| 
| 
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7371 064202 
7372 064206 
7373 064210 
7377 064214 
7378 064216 


7379 064226 
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004737 


004737 


010001 
104455 


013737 


074510 


074644 


016064 
002212 


002172 071620 
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;TEST 6, SUBTEST 9 


SVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1 
(READ FORWARD, SPACE REVERSE) AND SWB=0 OPERATES 
sPROPERLY. THE TAPE J REWOUND AND 


;DATA CONTENT; THE FIRST F BYTES OF EACH RECORD 
CONTAIN ITS RECORD —. CINDICATING go ee, ON 
3TA THE TAPE IS THEN FOR EACH 


PE). REWOUND AGAIN. 
;TEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED. 


1. THE REREAD NEXT COMMAND WITH OPP=1 IS ISSUED 
AND THE RESULTS CHECKED 


32. A READ FORWARD COMMAND IS THEN be ei AND THE 

: DATA_IS CHECKED TO VERIFY THAT THE TAPE WAS 

; LU es PROPERLY AFTER THE REREAD NEXT 

: COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 

; POSITIONED AT THE START OF THE TEST RECORD). THE 
: READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
: PROPERLY AT THE START OF THE NEXT TEST RECORD. 


;THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET 
sTO THE LENGTH OF THE EXPECTED RECORD, SO NO 
3 EXCEPTIONAL CONDITIONS SHOULD OCCUR. 


3>>>>>>>>>>>> BEGIN SU3TEST >>>>>>>>>>>> 


TRAP C$B8SUB 
JSR PC, T26REST SET COMMAND PACKET 

CLR T26CNT CLEAR TAPE RECORD COUNTER 

JSR PC, T26RT2 SET UP OTHER COMMAND PACKET 

JSR PC, T26RT3 ;SET UP OTHER COMMAND PACKET 


SERRA RAAERAAEEAERAAEEEEEREREEREAEEEAEREERERERAEREEREERREEEREREREREREEEEEE 


ISSUE CONTROLLER "'SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


. 
STARA RAEERAREREEREEEEEEERAERKARAERREERAEERREREREEEEEEEERERERRERERERE 


JSR PC, SOF INIT 3D0 INITIALIZE ON CONTROLLER 
20$ :BR IF INIT WAS OK 


BCS 

INC FATFLG 28 Cc 

MOV RO,R1 CONTENTS OF TSSR REGISTER 

ERRDF  ERRNO,SFIERR,SFIMSG zFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
-WORD 681 
«WORD SFIERR 
«WORD SFIMSG 

20$: MOV UNITN, T26DSW :SET UP UNIT NUMBER 


SEQ 0287 


= a i 
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7380 
a4} 064234 012704 071600 MOV AT26PACKET,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 


FERRARA AREEAEAAEEREREEEEEREEARERERREERERRAARRAEREEREREARERERERERERE 


WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


o 
J ERAAAAAERARARRARARAEREREREEAERAERAEAEERAEEERAEERRERERAERAEREREEREREREREKEE 


88 
064240 004737 010752 JSR PC, WRTCHR ZISSUE WRITE CHARACTERISTICS 
90 064244 103407 BCS 26$ :BR, IF COMMAND ISSUED OK 
064246 005237 002212 INC FATFLG ‘BUMP COUNT 
064252 010001 MOV RO,R1 + SAVE CONTENTS OF TSSR 
96 064254 ERRHRD ERRNO,WRTMSG, SF IMSG [WRITE CHARACTERISTISC FAILED 
064254 104456 TRAP  CSERHRD 
064256 001252 .WORD 682 
064260 005054 “WORD WRTMSG 
064262 012124 “WORD  SFIMSG 
7397 064264 268: CKLOOP ;LOOP IF SELECTED 
064264 104406 TRAP — CS$CLP1 


FERRARA AAEREREEAEAERERERERERAEEEREREEREREREREEEREEEERAEREREREKKKEEREE 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
FRA AARAEEAEEEEEEE  REREREREREREREREREREREREEERERERREEREEKEREEREEEE 


7404 

7405 064266 004737 011104 JSR PC REWIND ZCALL TAPE REWIND COMMAND 

7406 064272 103413 BCS 30$ ‘BR, IF NO PROBLEM 

7407 064274 016501 000002 MOV TSSR(RS),R1 :GET TSSR 

7408 064300 012702 000200 MOV #SSR,R2 :SET UP EXPECTED TSSR 

7409 064304 010004 MOV RO,R4 [PACKET ADDRESS SET UP 

7410 064306 005237 002212 INC FATFLG SBUMP COUNT 

7414 064312 ERRHRD ERRNO, T26RWN,PKTSSR ‘REWIND NOT ACCEPTED 
064312 104456 TRAP CSERHRD 
064314 001253 «WORD 683 
064316 073254 “WORD T26RWN 
064320 012136 “WORD PKTSSR 
064322 30$:  CKLOOP :LOOP IF SELECTED 
064322 104406 TRAP — C$CLP1 


FARRAR AAEARAERAEEAREREREEEEREEREREREEEERERERERRERERERERAREREREEEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


e 
FARRER AAEAAERERAERAEEEREREEERERERAAERARAREEERERAEEERERERERAEEEREREEREE 


064324 013701 071630 MOV T26BERS6, R1 :PICK UP XSTO 

064330 010102 MOV R2 :SET UP EXPECTED 

064332 052702 000002 BIS Saini. R2 3SET BOT jel IN EXPECTED 

064336 020102 CMP R1,R2- [DOES EXP = REC'D 

064340 001406 BEQ 408 BR, IF EQUAL (OK) 

064342 005237 002212 INC FATFLG ‘BUMP COUNT 

064346 ERRHRD ERRNO, T26B0T, EXPREC [TAPE NOT AT BOT AFTER REWIND 

064346 10445 TRAP  CSERHRD 
064350 001254 «WORD 684 
064352 072765 "wORD  T26B0T 
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064354 015564 «WORD EXPREC 
7433 064356 40$:  CKLOOP ;LOOP IF SELECTED 
064356 1044 406 TRAP CS$CLP1 
7434 064360 012703 000400 MOV #256. ,R3 ZRECORD SIZE 
1435 064364 013737 003114 071722 MOV FREE, T26RB TSTARTING WRITE BUFFER ADDRESS 
7437 FRAAAAEAAAAAERAEAARREEREAEREERERAAAAEEREERAEREERAEERERERRAREREREEREEREE 
7438 : 
StH WRITE DATA,CVC=1,ACK COMMAND 
7441 ISTITITITILITILI TILT TIT LITT LIT TLL TTT TTiiTiiiTTi ii TT iit etter 
7442 
7443 064372 012737 140005 071720 MOV #140005, T26PK3 ;WRITE DATA,CVC=1,ACK COMMAND 
7444 064400 012704 071720 MOV #T26PK3.R ‘SET UP R4 WITH PACKET ADDRESS 
7445 064404 65$: 
7446 064404 010337 071726 MOV R3,126S2 :SET UP RECORD SIZE IN PACKET 
7447 064410 013777 071746 116476 MOV T26CNT aFREE [MOVE TAPE RECORD NUMBER TO BUFFER 
7448 064416 062737 000001 071746 ADD #1, T26CNT [NUMBER READY FOR NEXT RECORD 
7449 064424 010465 000000 MOV RG. 1$DB¢RS) : ISSUE COMMAND 
7450 064430 004737 016340 JSR PC.WAITF :WAIT FOR SSR TO SET 
7451 064434 016501 000002 MOV TSSR(R5) RI [GET TSSR CONTENTS 
7452 064440 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 
7453 064444 020102 CMP R1,R2 ZARE THEY EQUAL 
7454 064446 001406 BEQ 75$ 7BR, IF OK 
7455 064450 005237 002212 INC FATFLG : COUNT 
7459 064454 ERRHRD ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER REREAD DATA 
064454 104456 TRAP CSERHRD 
064456 001255 «WORD 685 
064460 005111 “WORD WRTERR 
064462 012136 “WORD PKTSSR 
7460 0644646 75$:  CKLOOP :LOOP IF SELECTED 
064464 104406 TRAP _— CS$CLP1 
7461 064466 005723 TST (R3)+ ;BUMP THE RECORD SIZE 
7462 064470 022703 000414 CMP #268. ,R3 [MAXIMUM SIZE Y 
7463 064474 001401 BEQ 120$ 7BR, IF AT END OF WRITE SEQUENCE 
7464 064476 000742 BR 65$ [WRITE MORE RECORDS 
7465 064500 120$: 
Pa66 064500 005037 071746 CLR T26CNT zSET RECORD COUNTER BACK TO ZERO 
7468 FERRARA AEAEAREREARAREEEREEEEERERERREREEEEERERERERREREREREREEERERREEE 
7469 3 
7470 ZISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
7472 ITITITILICTITTLTLELT LETT T TLL TT TTT T TTT TTT TTT TTT TTT TTT 
7473 
7474 064504 004737 011104 JSR PC REWIND :CALL TAPE REWIND COMMAND 
7475 064510 103411 BCS 130$ [BR, IF NO PROBLEM 
7476 064512 016501 000002 MOV TSSR(RS) RI [GET TSSR 
7477 064516 010004 MOV RO,R4 SPACKET ADDRESS SET uP 
7478 064520 005237 002212 INC FATFLG : COUNT 
7482 064524 ERRHRD ERRNO, T26RWN,PKTSSR SREWIND NOT ACCEPTED 
064524 104456 TRAP = CSERHRD 
064526 001256 «WORD 686 
064530 073254 “WORD  T26RWN 
064532 012136 “WORD PKTSSR 
7483 064534 130$:  CKLOOP ;LOOP IF SELECTED 
064534 104406 TRAP — CSCLP1 





| eee aa ee ee [ 
TSV? = yor ~~ 1-8 MACRO M1113 25-MAY-82 09:19 PAGE 134-3 


TEST 6: REREAD SEQ 0290 | 
7484 
7485 FERARAREAAAEAEEEREEARERAEREAAERAAEAAAHERAEREAEERERERAAEAREREEEEEEEEEE | 
7486 ; 

7487 [READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

7489 ITITITITILITITILL LILI L TLL LLL LITT T Titi Tit TTT i TTT TTT 

74 

7491 064536 013701 071630 MOV T26BER+6, R1 :PICK UP XSTO 

7492 064542 010102 MOV R2 /SET UP EXPECTED 

7493 064544 052702 000002 BIS Salts »R2 [SET BOT BIT IN EXPECTED 

7494 064550 020102 CMP R1,R2 ZDOES EXP = REC'D 

7495 064552 001406 BEQ 135$ ZBR, IF EQUAL (OK) 

7496 064554 005237 002212 INC FATFLG [BUMP COUNT 

7500 964560 ERRHRD ERRNO, T26B0T, EXPREC :TAPE NOT AT BOT AFTER REWIND 
064560 104456 CSERHRD 
064562 001257 TEORD 687 
064564 072765 “WORD T26B0T 
064566 015564 WO EXPREC 

7501 064575 135$:  CKLOOP :LOOP IF SELECTED 
064570 104406 TRAP — C$CLP1 

7502 064572 012737 000400 071752 MOV #256. ,T26RSZ ZSTARTING RECORD SIZE 

7503 064600 000420 BR 140$ :SKIP OVER THE SAPCE THIS TIME 

7505 aaa tana ecient 

7506 

7507 TISSUE °PACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 

7308 :BIT 15 SETS DIRECTION = O=FORWARD  1=REVERSE 

7510 | secthnenenlinthnibibmmnee ina eEReEiRREntteneniaReenE 

7511 

7512 064602 012703 000001 132$: MOV #000001,R3 ZSET UP SPACE COMMAND (1 FORWARD) 

7513 064606 004737 010556 JSR PC, SPACE :CALL SPACE ROUTINE 

7514 064612 103413 BCS 140$ :BR, IF NO TROUBLE 

7515 064614 016501 000002 MOV TSSR(RS),R1 [GET TSSR 

7516 064620 012702 000200 MOV #SSR,R2 :SET UP EXPECTED TSSR 

7517 064624 010004 MOV RO,R4 SPACKET ADDRESS SET UP 

7518 064626 005237 002212 INC FATFLG ‘BUMP COUNT 

7522 064632 ERRHRD ERRNO,T26SC,PKTSSR SSPACE (FORWARD) FAILED 
064632 104456 TRAP  CSERHRD 
064634 001260 «WORD 688 
064636 072367 <WORD  T26SC 
064640 012136 “WORD PKTSSR 

7523 064642 140$:  CKLOOP sLOOP IF SELECTED 
064642 104406 TRAP _C$CLP1 

7524 064644 013703 071752 MOV T26RS7Z,R3 ZRECORD SIZE 

7525 064650 013737 003114 071722 150$: MOV FREE, T6RB ZSTARTING READ BUFFER ADDRESS 

7527 SARA AAAAEAAERERERAEAAREREERERARERAAEREAEEEKRERERERREEEEREEEREREREEEE 

7528 ; 

7529 SREREAD DATA,CVC=1,ACK, OPP COMMAND 

7531 ITIITTTLLTLILIL ELUTE LETTE TTT TTT TTT TTT TTT TTT Tee 

7532 

7533 064656 012737 161401 071720 MOV #161401, T26PK3 ;REREAD DATA, CVC=1.ACK, OPP COMMAND 

7534 064664 012704 071720 165$: MOV #T26PK3._R4 7SET UP R4 WITH PACKET ADDRESS 

7535 064670 010337 071726 MOV R3, 12652 [SET UP RECORD SIZE IN PACKET 

7536 064674 010465 000000 MOV R4. TSDB(RS) : ISSUE COMMAND 
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7537 064700 004737 016340 JSR PC,WAITF ZWAIT FOR SSR TO SET 
7538 064704 016501 000002 MOV TSSR(R5),R1 'GET TSSR CONTENTS 
7539 064710 012702 000200 MOV #SSR,R2 [SET UP EXPECTED 
7540 064714 020102 CMP R1,R2 SARE THEY EQUAL 
7541 064716 001406 BEQ 170$ 38R, IF OK 
7542 064720 005237 002212 INC FATFLG ‘BUMP COUNT 
7546 064724 ERRHRD ERRNO, T26RRF ,PKTSSR sTSSR INCORRECT AFTER a DATA 
064724 104456 RAP  CSERHRD 
064726 001261 MOOR 689 
064730 072175 “WORD T26RRF 
064732 012136 “WORD PKTSSR 
7547 064734 170$:  CKLOOP ;LOOP IF SELECTED 


104406 TRAP CSCLP1 


116152 MOV @FREE,R1 FIRST WORD FROM READ BUFFER 
7549 064742 013702 071746 MOV T26CNT, 4 3SET UP EXPECTED 
7550 064746 020102 CMP R1,R2 31S TAPE POSITION CORRECT 
7551 064750 001406 BEQ 190$ [KEEP GOING POSITION OK 
7552 064752 005237 002212 INC FATFLG ‘BUMP COUNT 
7556 064756 ERRHRD ERRNO, T26WNG,EXPREC Zs TAPE POSITION INCORRECT 
064756 104456 TRAP CSERHRD 
064760 001262 -WORD 690 
064762 071756 -WORD T26WNG 
064764 015564 -WORD EXPREC 
7557 064766 190$: CKLOOP 
064766 104406 TRAP CS$CLP1 
7558 064770 062737 000001 071746 ADD #1, T26CNT ;BUMP TAPE RECORD COUNTER 
7559 064776 005723 TST (R3)+ sNEXT RECORD SIZE 
7560 065000 010337 071752 MOV R3, T26RSZ sSTORE RECORD SIZE 
7561 065004 022703 000412 CMP #266. ,R3 AT MA m Sie wi 
7562 065010 001402 BEQ 200$ sBR, 7: T END OF THE SUBTEST 
7563 065012 000137 064602 JMP 132$ SKEEP GOING MORE RECORDS 
7564 065016 200$: 
7565 065016 ENDSUB 3>>>>>>>>>>>> END SUBIEST >>>>>>>>>>>> 
065016 L10113: 
065016 104403 TRAP CSESUB 
7566 065020 023727 002212 000017 CMP FATFLG,#15. 31S ERROR COUNT AT 25 
7567 065026 103402 BLO 959§ :BR, IF LESS THAN 25 
7568 065030 004737 017272 JSR PC,CKDROP sTRY TO DROP THE UNIT 


7569 065034 999$: 
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7571 3+ 

7572 ; 

7578 :TEST 6, SUBTEST 10 

7575 [VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1 

7576 SAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS 

7577 :THE SAME THAT IS USED IN SUBTEST 3, BUT IT 

7578 [VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 

7579 [SWAPPED BYTES. 

7580 : 

7581 ; 

7582 ; 

7583 : 

7586 tah BGNSUB j>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
065034 104402 ? TRAP C$BSUB 

7587 065036 004737 074510 JSR PC, T26REST sSET COMMAND PACKET 

7588 065042 005037 071746 CLR T26CNT [CLEAR TAPE RECORD COUNTER 

7589 065046 004737 074602 JSR PC, F3GRT2 :SET UP OTHER COMMAND PACKET 

7590 065052 004737 074644 JSR PC; T26RT3 :SET UP OTHER COMMAND PACKET 

7592 FARA AAEAEARARAAEERRAREEEEREEERERRARERREEREERARAREAEEREREREREEEREEEE 

7593 : 

7594 SISSUE CONTROLLER "‘SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 

7596 ITITITIIILITILI TLL LLL LTTE TELL T ELLE TELL T TTT Tete 

7597 

7598 065056 004737 016064 JSR PC, SOF INIT :D0 INITIALIZE <n CONTROLLER 

7599 065062 103407 BCS 20$ ‘BR IF INIT WAS OK 

5 005237 002212 INC FATFLG 7B COUNT 

7604 065070 010001 OV RO,R1 [CONTENTS OF TSSR REGISTER 

7605 065072 ERRDF ERRNO, SFIERR, SF IMSG SFATAL ERROR TSSR WAS NOT Ok 
065072 104455 TRA CSERDF 
065074 001263 TUORD 691 
065076 003650 “WORD SFIERR 
065100 012124 “WORD SFIMSG 

7606 065102 013737 002172 071620 20$: Mov UNITN, T26DSW :SET UP UNIT NUMBER 

7608 065110 012704 071600 MOV #T26PACKET,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 

7610 SRARARAAAAEAEAEAEAEEEREEREREERAERERRERERERERERERAERERAEEEREEEREREEEEEE 

7611 ; 

7612 [WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

7614 PITITITIIITLILILITT LLL LLL LLL LET ETE T TTT t TTT 

7615 

7616 065114 004737 010752 JSR PC,WRTCHR TISSUE WRITE CHARACTERISTICS 

7617 065120 103407 BCS 26 [BR, IF COMMAND ISSUED OK 

7618 065122 005237 002212 INC FATFLG :B OUNT 

7622 065126 010001 MOV RO,R1 SSAVE CONTENTS OF TSSR 

7623 065130 ERRHRD ERRNO,WRTMSG, SF IMSG WRITE CHARACTERISTISC FAILED 
065130 104456 CSERHRD 
065132 001264 rEORD 692 
065134 005054 “WORD WRTMSG 
065136 012124 “WORD SFIMSG 


————— ae 
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TEST 6: REREADS SEQ 0293 
7624 065140 268: CKLOOP ;LOOP IF SELECTED 
sain 065140 104406 TRAP — C$CLP1 
| 7626 FARRAR AAAAARAEAERERERAAAEEEERAREREAEEREAEERERERRRREREEEEREERERREREREE 
7627 ; 
| 26¢8 SISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
7630 ITTIITTILILITILILILILT LTTE LILLE ii iiT TTT iiTT TTT 
7631 
7632 065142 004737 011104 JSR PC, REWIND :CALL_ TAPE REWIND COMMAND 
7633 065146 016501 000002 MOV TSSR(R5) RI :GET TSSR 
7634 065152 012702 000200 MOV #SSR,R2 iSeT uP EXPECTED TSSR 
7635 065156 103407 BCS 308 F NO PROBLEM 
7636 065160 010004 MOV RO,R4 PACKET ADDRESS SET UP 
7637 065162 005237 002212 INC FATFLG COUNT 
7641 065166 ERRHRD ERRNO, T26RWN,PKTSSR {REWIND NOT ACCEPTED 
065166 104456 TRAP CSERHRD 
065170 001265 «WORD 693 
065172 073254 "WORD  T26RWN 
065174 012136 “WORD PKTSSR 
7642 065176 30$:  CKLOOP :LOOP IF SELECTED 
sich 065176 104406 TRAP — C$CLP1 
7644 SERAAAAAEAAEARAAAREEERERAEREREEEREERAEAEREAREARREREREEERERRERREEKERREREE 
7645 : 
ree ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
7648 TT TITTTTITELILILELELTT ETL T TTT TTT TTT TTT TTT TTT TTT Te 
7649 
7650 065200 013701 071630 MOV T26BER+6,R1 :PICK UP XSTO 
7651 065204 010102 MOV 1,R2 :SET UP EXPECTED 
7652 065206 052702 000002 BIS wait. R2 SET BOT BIT IN EXPECTED 
7653 065212 020102 CMP R1,R2- [DOES EXP = REC'D 
7654 065214 001406 BEQ 408 :BR. IF EQUAL tox) 
7655 065216 005237 002212 INC TFLG [BUMP COUNT 
7659 065222 ERRHRD ERRND T26B0T EXPREC > TAPE NOT AT BOT AFTER — 
065222 104456 CSERHRD 
065224 001266 Teono 694 
065226 072765 “WORD T26B0T 
065230 015564 “WORD EXPREC 
7660 065232 40$: CKLOOP ;LOOP IF SELECTED 
065232 104406 TRAP — C$CLP1 
7661 065234 012703 000400 MOV #256. .R3 :RECORD SIZE 
662 065240 013737 003114 071722 MOV FREE. T26RB TSTARTING WRITE BUFFER ADDRESS 
7664 FRAERAAAARERAEERAERERAEEEEEEREREKEEERAEERERAEEERERREEREEEEEEEKEREEEEEEEEE 
7665 : 
yO66 sWRITE DATA,CVC=1,ACK COMMAND 
7668 ITT TITILELITTLE LETT TELE TTT T TTT TTT TTT TTT TTT TT TTT TTT TTT TTT Te 
7669 
7670 065246 012737 140005 071720 MOV #140005, T26PK3 ZWRITE DATA,CVC=1,ACK COMMAND 
vert stytes 012704 071720 658 MOV #T26PK3,R4 sSET UP R4 WITH PACKET ADDRESS 
7673 065260 010337 071726 "mov R3,726S2 7SET UP RECORD SIZE IN PACKET 
7674 065264 013777 071746 115622 MOV T26CNT FREE [MOVE TAPE RECORD NUMBER TO BUFFER 
7675 065272 062737 000001 071746 ADD #1, T26CNT NUMBER READY FOR NEXT RECORD 
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7676 065300 010465 000000 MOV R4, TSDB(RS) y ISSUE COMMAND 

7677 065304 004737 016340 JSR PC.WAITF :WAIT FOR SSR TO SET 

7678 065310 016501 000002 MOV TSSR(RS) RI 'GET TSSR CONTENTS 

7679 065314 012702 000200 MOV #SSR,_R2 :SET UP EXPECTED 

7680 065320 020102 CMP R1,R2 TARE THEY EQUAL 

7681 065322 001406 BEQ 75$ 7BR, IF OK 

682 065324 005237 002212 INC FATFLG [BUMP COUNT 

7686 065330 ERRHRD ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
065330 104456 TRAP CSERHRD 
065332 001267 .WORD 695 
065334 005111 “WORD WRTERR 
065336 012136 “WORD PKTSSR 

7687 065340 75$:  CKLOOP ;LOOP IF SELECTED 
065340 104406 TRAP _— C$CLP1 

688 065342 005723 TST (R3)+ : BUMP THE Fa SIZE 

9 065344 022703 000414 CMP #268. ,R3 MAXIMUM YET 

7690 065350 001401 BEQ 120$ ‘BR, IF AT END OF WRITE SEQUENCE 

7691 065352 000742 BR 65$ WRITE MORE RECORDS 

7692 065354 120$: 

7693 065354 005037 071746 CLR T26CNT zSET RECORD COUNTER BACK TO ZERO 

7695 3 RERAEAAAARAARAAREEARARAEAREEEEERERERARRARERERERAEAEEEREERAERAREEEARRREREREE 

7696 3 

7697 TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

7699 ITT TITTTILELILELTTEL ETE L ETE LET TET TTT TTT TTT TTT TT TTT TTT TTT 

7700 

7701 065360 004737 011104 JSR PC REWIND ZCALL TAPE REWIND COMMAND 

7702 065364 103411 BCS 130$ 7BR, IF NO PROBLEM 

7703 065366 016501 000002 MOV TSSR(RS),R1 :GET TSSR 

7704 065372 010004 MOV RO, RG [PACKET ADDRESS SET UP 

7705 065374 005237 002212 INC FATFLG : T 

7709 065400 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
065400 104456 TRAP CSERHRD 
065402 001270 «WORD 696 
065404 073254 “WORD T26RWN 
065406 012136 “WORD PKTSSR 

7710 065410 130$:  CKLOOP :LOOP IF SELECTED 

tee 065410 104406 TRAP _—CSCLP1 

7712 FRRAAAARAAERARARAEREREREEEREREEAEREREEAREREREEREREREREREREREKEKKEKEKERE 

7713 : 

car ZREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 

7716 ITITIITITELTLELETIL ETT LTT TTT LTT LiT TTT TTT Tete TTT TTT 

7717 

7718 065412 013701 071630 MOV T26BER+6 RI :PICK UP XSTO 

7719 065416 010102 MOV R2 :SET UP EXPECTED 

7720 065420 052702 000002 BIS Saini. R2 :SET BOT pelt IN EXPECTED 

7721 065424 020102 CMP R1,R2- [DOES EXP = REC'D 

7722 065426 001406 BEQ 135$ :BR. IF EQUAL (OK) 

7723 065430 005237 002212 INC FATFLG COUNT 

7727 065434 ERRHRD ERRNO, T26BOT, EXPREC STAPE NOT AT BOT AFTER REWIND 
065434 104456 TRAP  CSERHRD 
065436 001271 «WORD 697 
065440 072765 “WORD  T26BOT 


065442 015564 «WORD EXPREC 
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TEST 6: REREAD SEQ 0295 
7728 065444 135$: CKLOOP ;LOOP IF SELECTED 
5444 104406 TRAP C$CLP1 

7729 065446 012737 000400 071752 MOV #256. ,T26RSZ sSTART RECORD SIZE 

oreo 065454 000420 BR 140$ sSKIP OVER SPACE 

7732 : {CONAN ANENOROSSNSNSSSHTTINESHNNHSRSRIN NNN IRTENSSSNIRROROSR OR eReTS 

7733 

7734 TISSUE SPACE RECORDS COMMAND = VALUE IN R3 SETS NUMBER OF RECORDS 

wr? :B1T 15 SETS DIRECTION = O=FORWARD 1=REVERSE 

7737 | OcsenubainnenniioasnsienUbeneseneneeeNnenetneneséhenenenannnenenn 

7738 

7739 065456 012703 000001 136$: MOV #000001 ,R3 :SET UP SPACE COMMAND (1 FORWARD) 

7740 065462 004737 010556 JSR PC,SPACE sCALL SPACE ROUTINE 

7741 065466 103413 BCS 140$ 7BR, IF NO TROUBLE 

7742 065470 016501 000002 MOV TSSR(RS),R1 :GET TSSR 

7743 065474 012702 000200 MOV #SSR,R2 sSET UP EXPECTED TSSR 

7744 065500 010004 MOV RO,R4 :PACKET ADDRESS SET UP 

7745 065502 005237 002212 INC FATFLG ;BUMP COUNT 

7749 065506 ERRHRD ERRNO,T26SC,PKTSSR sSPACE (FORWARD) FAILED 
0655 104456 TRAP CSERHRD 
065510 001272 «WORD 698 
065512 072367 eWORD T26SC 
065514 012136 -WORD PKTSSR 

7750 065516 140$: CKLOOP ;LOOP IF SELECTED 
065516 104406 TRAP CSCLP1 

7751 065520 013703 071752 MOV T26RSZ,R3 sRECORD SIZE 

o736 065524 013757 003114 071722 150$: MOV FREE, T26RB :STARTING READ BUFFER ADDRESS 

7754 FERRARA EREEAREEREEEEERRRARREREERERERERERERERRERREEREREEREERE 

7755 3 

ore sREREAD DATA,CVC=1,ACK, OPP COMMAND 

7758 TTT TTTITELETILELELETTL LETTE LETT TTT TTT TTT TTT TTT TTT 

7759 

7760 065532 012737 161401 071720 MOV Ab Upad -T26PK3 sREREAD DATA,CVC=1,ACK, OPP COMMAND 

7761 065540 012704 071720 165$: MOV #T26PK K3,R4 3SET UP R4 WITH PACKET ADDRESS 

7762 065544 010337 071726 MOV R3,726S2Z SET UP RECORD SIZE IN PACKET 

7763 065550 010465 000000 MOV R4,TSDB(RS) s ISSUE COMMAND 

7764 065554 004737 016340 JSR PC ,WAITF :WAIT FOR SSR TO SET 

7765 065560 016501 000002 MOV TSSR(RS), R1 :GET TSSR CONTENTS 

7766 065564 012702 000200 MOV #SSR,R2 SET UP EXPECTED 

7767 065570 020102 CMP R1,R2 TARE THEY EQUAL 

7768 065572 001406 BEQ 1705 BR, IF OK 

7769 065574 005237 002212 INC FATFLG Hi) COUNT 

7773 065600 ERRHRD ERRNO, T26RRF ,PKTSSR :TSSR INCORRECT AFTER REREAD DATA 
065600 104456 TRAP CSERHRD 
065602 001273 «WORD 699 
065604 072175 eWORD T26RRF 
065606 012136 -WORD PKTSSR 

7774 065610 170$: CKLOOP ;LOOP IF SELECTED 
065610 104406 TRA CSCLP1 

7775 065612 017701 115276 MOV @FREE,R1 Als FROM READ BUFFER 

7776 065616 013702 071746 MOV T26CNT, R2 3;SET UP Exp 

7777 065622 020102 CMP R1,R2 31S TAPE POSITION CORRECT 

7778 065624 001406 BEQ 196$ [KEEP pe bee POSITION OK 


7779 065626 005237 002212 INC FATFLG BUMP COUN 
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7783 065632 
632 

634 

$02076 

7784 Rrere 
yes 065644 
7787 065654 

88 


92 065672 
065672 


065672 
7793 065674 
7794 065702 
7795 065704 
7796 065710 


015564 


104406 


000137 


104403 


004737 


000001 


071752 
000412 


065456 


002212 
017272 
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071746 


000017 


190$: 


2208: 


999$: 


ERRHRD ERRNO, T26WNG,EXPREC 


CKLOOP 
ADD #1, T26CNT 
TST (R3)¢ 

MOV R3, T26RSZ 
CMP #266. ,R3 
BEQ 20$ 

JMP 136$ 
ENDSUB 

CMP FATFLG,#15. 
BLO 999$ 

JSR PC, CKDROP 


3 TAPE POSITION INCORRECT 


TRAP 
BUMP TAPE RECORD COUNTER 


sNEXT RECORD SIZE 

STORE RECORD SIZE 

AT MAX SIZE Y = t 

BR, IF AT END OF THE SUBTEST 
KEEP GOING MORE RECORDS 


TRAP 
31S ERROR COUNT AT 25 
:BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 


CSERHRD 
700 


T26WNG 
EXPREC 


CSCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10114: 


C$ESUB 


SEQ 0296 
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7798 3+ 

7799 ; 

7800 :TEST 6, SUBTEST 11 

7802 [VERIFIES THAT A REREAD NEXT COMMAND READING A 

7803 SRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 

7804 [TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 

7805 ‘LONG (RLL) BIT SET. pRESULTS ARE VERIFIED FOR BOTH 

7806 SSTATES OF OPP (0 AN 

7807 : 

7808 ; 

7809 ; 

7810 te 

ity 

7813 fad BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
065710 104402 p TRAP C$BSUB 

7814 065712 004737 074510 JSR PC, T26REST :SET COMMAND PACKET 

7815 065716 004737 074602 JSR PC. T26RT2 'SET UP OTHER COMMAND PACKET 

7816 065722 004737 074644 JSR PC. T26RTS ‘SET UP OTHER COMMAND PACKET 

7818 FARR EAAAE AREER EEAAEEEEREREAERERREERERREEEEERAEEREREREEERREREREEE 

7819 5 

7820 TISSUE CONTROLLER ‘‘SOFT'’ INITIALIZE = CARRY BIT CLEAR IF ERROR 

recs TTTTITITITITITTLTTTT TLL TLL TLL LTTE LL LTTE LEE LETTE LET 

782 

7824 065726 004737 016064 JSR PC, SOF INIT :D0 INITIALIZE ON CONTROLLER 

7825 065732 103407 BCS 20$ [BR IF INIT WAS OK 

7826 065734 005237 002212 INC FATFLG ‘BUMP COUNT 

7830 065740 010001 MOV RO,R1 [CONTENTS OF TSSR REGISTER 

7831 065742 ERRDF ERRNO, SFIERR,SFIMSG SFATAL ERROR TSSR WAS NOT OK 
065742 104455 TRAP — CSERDF 
065744 001275 .WORD 701 
065746 003650 “WORD SFIERR 
065750 012124 “WORD SFIMSG 

7832 065752 013737 002172 071620 20$: MoV UNITN, T26DSW 7SET UP UNIT NUMBER 

7834 065760 012704 071600 MOV AT26PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

re38 SARA ARERERAREERERERAEEEAEEERKEAEEAEEREREERAEEREKEEEREAREEEREREEEE EE 

783 : 

7838 [WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

7840 PITITITITILILIL LILI TLLL LLL EL LLL ELLE LGR E ELLE EEE EEE eee 

7841 

7842 065 004737 010752 JSR PC,WRTCHR TISSUE WRITE CHARACTERISTICS 

7843 065770 103407 BCS 26$ [BR, IF COMMAND ISSUED OK 

7844 065772 005237 002212 INC FATFLG ‘BUMP COUNT 

7848 065776 010001 MOV RO,R1 :SAVE CONTENTS OF TSSR 

7849 066000 ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
066000 104456 TRAP  CSERHRD 
066002 001276 «WORD 702 
066004 005054 “WORD WRTMSG 

012124 “WORD  SFIMSG 


066006 
7850 066010 





26$: CKLOOP 


LOOP IF SELECTED 


066010 


7858 066012 
7859 066016 
7860 22 


5 
7876 066050 
54 


5 
96 g661t6 


7900 066134 
7901 066140 
7902 066144 


164406 


004737 


005237 
104456 


0 
012136 
104406 


013701 


005237 
104456 
001300 


104406 
012703 
013737 
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011104 
000002 
000200 


002212 


071630 
000002 


002212 


001000 
003114 


140005 
071720 


071726 


000002 
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071722 


071720 


TRAP 


FEAR AAAAAEEARAERARAEEEARAEEEREEREEEAAEEERERERREERERERERRRAHEEEEEEE 


TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


° 
FRRAAARAAARAEAAAEREEREREEEEEERERRERREREERERERERERERREARRERERERREREEE 


30$: 


CKLOOP 


PC ,REWIND 
TSSR(R5) RI 
#SSR,R2 


+f Ay 


TFLG 
ERRHRD ERRNO. T26RWN,PXTSSR 


eae eRe REWIND COMMAND 
SET UP an baoee TSSR 
BR, IF NO PROBLEM 

:PACKET ++ Paste SET UP 


78 COUN 
REWIND NOT ACCEPTED 


sLOOP IF SELECTED 


FARA AAARAEEEAERAERRAAREREEAEREEARRERRERERREREEREERERREREERERREREEEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
FERRARA AAEAEREEEEREEREEEREAAERARERERERERERRARRERRERREREREREERERERKEE 


40$: 


CKLOOP 


MOV 
MOV 


T26BFR+6,R1 
R1,R 
#B1T1,R2 
R1,R2 


FATFLG 
ERRHRD ERRNO, T26B0T ,EXPREC 


#512. oR3 
FREE, T26RB 


:PICK UP _XsTO 

2SET UP_ EXPECTED 

sSET BOT BIT IN aia 
DOES EXP = REC'D 

3BR, IF EQUAL (OK) 


:8 UN 

;TAPE NOT AT BOT AFTER REWIND 
TRAP 
«WORD 
- WORD 
«WORD 


TRAP 


LOOP IF SELECTED 
sRECORD SIZE 


sSTARTING WRITE BUFFER ADDRESS 


FRRRARARARARARAERRAREEEEEEERERRERRARAERERERERRERRERREEEREREREKAKEREE 


[WRITE DATA,CVC=1,ACK COMMAND 


. 
° 
FERRARA AREAAEEEEAREEREREEEEREREEEREEREREREREEREREREREEEREREERREEE 


65$: 





#140005, T26PK3 
#126 


PK3,R4 
R3,T26SZ 
R4,TSDB(RS) 
PC ,WAITF 
TSSR(RS),R1 


sWRITE DATA,CVC=1,ACK C 


OMMAND 
SET UP R4 WITH PACKET ADDRESS 


sSET UP RECORD SIZE IN PACKET 
; ISSUE COMMAND 


SWAIT FOR SSR TO SET 
SGET TSSR CONTENTS 


CSCLP1 


CSERHRD 
703 


T26RWN 
PKTSSR 


CSCLP1 


CSERHRD 
704 


T26B80T 
EXPREC 


CSCLP1 


SEQ 0298 


-——_-—— 
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7903 066150 
7904 066154 
7905 066156 
7906 066160 
7910 066164 


012702 
2 


012136 
104406 


004737 
005237 


104456 


012136 
104406 


013701 


000200 


002212 


011104 
000002 
000200 


002212 


071630 
000002 


002212 


003114 071722 


75$: 


CKLOOP 
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#SSR,R2 
R1,R2 
75$ 


| FATFLG 
ERRHRD ERRNO,WRTERR,PKTSSR 


SET UP EXPECTED 
sARE THEY EQUAL 
IF OK 


; COUNT 
zTSSR INCORRECT AFTER “—— 


CSERHRD 
WORD 705 
«WORD WRTERR 
«WORD PKTSSR 


LOOP IF SELECTED 
TRAP CSCLP1 


SREAAAARARARAAAERAERERERAREEERRRAEERREREREREERERERRAEREEREREEEEEH We 


TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


e 
FARRAR REAEEERERREREEREREEREEEREAEREREEEEREERREREREREEREREREREREEREE 


130$: 


CKLOOP 


PC REWIND 
TSSR(R5),R1 
#SSR,R2 


130$ 
$f “Fy 


TFLG 
ERRHRD ERRNO. T26RWN,PKTSSR 


cote eRe REWIND COMMAND 
3SET UP tg Ly TSSR 
;BR, IF NO PROBLEM 

PACKET — SET UP 


BUMP COUN 
;REWIND NOT ACCEPTED 
TRAP — 


SAAR AERARARREEREEREEEEEEERERERERERERERERERREEEREREREERE TAREE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
SERRA AAEAAEAAERREEREREEREREEERERAERERERERERERERRERAEREREREREREEERKEKEEE 


140$: 


CKLOOP 


DEC 
MOV 


+ la R1 
R1,R2 
#B1T1,R2 
R1,R2- 


FATFLG 
ERRHRD ERRNO, T26B0T ,EXPREC 


R3 
FREE, T26RB 


- WORD 
-WORD T26RWN 
«WORD PKTSSR 
LOOP IF SELECTED 
TRAP CSCLP1 
:PICK UP _XSTO 
SET UP EXPECTED 
sSET yi ay IN EXPECTED 
;DOES E REC'D 
BR, IF “EQUAL (OK) 
:TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
WORD 707 
-WORD T26B0T 
WORD EXPREC 
LOOP IF SELECTED 
TRAP CSCLP1 


sSET RECORD SIZE TO 511. 
STARTING READ BUFFER ADDRESS 


SRRAARAAAAAAAAERAAERAEREREEAEAERRAAERERERAARAERERERERAREEREREREREEEE 


[REREAD DATA,CVC=1,ACK,OPP=1 COMMAND 





SEQ 0299 


ay 
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TEST 6: REREAD SEQ 0300 

7954 : 

7955 SERRA AAARAARAERRERAES AEREEERERAARRRERERREREEREERAERERREREEEREEEEEE 

7956 

7957 066300 012737 161401 071720 MOV #161401 ,126PK3 {REREAD DATA. CVC=1_ACK.OPP=1 COMMAND 

7958 066306 012704 071720 165$: MOV #T26PK3.R ‘SET UP R4 WITH PACKET ADDRESS 

7959 066312 010337 071726 MOV R3, yal 3SET UP RECORD SIZE IN PACKET 

7960 066316 010465 000000 MOV RZ. TSDB(RS) SSUE COMMAND 

“ 7961 066322 004737 016340 JSR PC ,WAITF tWAIT FOR SSR TO SET 

7962 066326 016501 000002 MOV TSSR(R5),R1 :GET TSSR CONTENTS 

7963 066332 012702 100204 MOV pssnisceiT2. R2 7SET UP EXPECTED 

7964 066336 020102 CMP R1,R2 SARE THEY EQUAL 

5 066340 001406 BEQ 170$ ‘BR, IF OK 

066342 005237 002212 INC FATFLG : COUNT 

7970 066346 ERRHRD ERRNO, T26TRL,PKTSSR ;TSSR INCORRECT AFTER REREAD DATA 
066346 104456 TRAP CSERHRD 
066350 001304 .WORD 708 
066352 074332 “WORD T26TRL 
066354 012136 ~ WORD PKTSSR 

7971 066356 170$: CKLOOP ;LOOP IF SELECTED 

bees 066356 104406 TRAP —- C$CLP1 

7973 FERRARA AAEREARARERAEREEEEEREREEREARARAERREEREAEREREREREEEREKEREEEE 

7974 : 

1975 [READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 

7977 PT TTITITITILILILELELIL EET LETTE TT TTT TTT TTT TTT TT TTT 

7978 

7979 066360 013701 071630 MOV T26BFR+6,R1 :GET MESSAGE BUFFER 

7980 066364 010102 MOV R1,R2 iSeT UP EXPECT 

7981 066366 052702 010000 BIS #BIT12,R2 SET THE RLL BIT IN EXPECTED 

7982 066372 020102 CMP R1,R2 SARE THEY EQUAL 

7983 066374 001406 BEQ 180$ 7BR, IF EQUAL (ALL IS WELL) 

7984 066376 005237 002212 INC FATFLG ‘BUMP COUNT 

7988 066402 ERRHRD ERRNO, T26LON,EXPREC STHE RLL BIT WAS NOT SET IN XSTO 
066402 104456 TRAP  CSERHRD 
066404 001305 .WORD 709 
066406 074100 “WORD  T26LON 
066410 015564 <WORD EXPREC 

7989 066412 180$:  CKLOOP 
066412 104406 TRAP — CS$CLP1 

7990 066414 012703 000777 MOV #511. ,R3 :SET UP SIZE OF RECOR 

7991 066420 013737 003114 071722 MOV FREE, 156RB SSTARTING READ BUFFER. ADDRESS 

7993 FARA EAAAERERREAEEEEEERAREAEREREEEEREREREREREREREEREREREEEEREEE 

799% : 

7995 SREREAD DATA,CVC=1,ACK COMMAND 

7997 PITITITILILITILILLTTTLL LTTE TTT TTT TTT TTT TTT TTT 

7998 

7999 066426 012737 141401 071720 MOV #141401, T26PK3 ;REREAD DATA, CVC=1,ACK COMMAND 

8000 066434 012704 071720 365$: MOV #T26PK3_R4 'SET UP R4 WITH PACKET ADDRESS 

8001 066440 010337 071726 MOV R3,126S 3SET UP RECORD SIZE IN PACKET 

8002 066444 010465 000000 MOV R4. TSDB(RS) —E COMMAND 

8003 066450 004737 016340 JSR PC: WAITF “WAIT FOR SSR TO SET 

8004 54 016501 000002 MOV TSSR(R5) RI :GET TSSR CONTENTS 

8005 066460 012702 100204 MOV #SSR'SC'BIT2,R2 'SET UP EXPECTED 

8006 066464 020102 CMP R1,R2 SARE THEY EQUAL 


—— 


8036 066560 





999$: 


r 
TSV7 = Mente — 1-8 MACRO M1113 25=MAY=-82 09:19 PAGE Eb | 
TEST 6: REREAD SEQ 0301 | 
8007 066466 061406 BEQ 3708 sR, IF OK | 
8008 066470 005237 002212 INC ‘BUMP COUNT 
8012 066474 ERRHRD EARN” T26TRL,PKTSSR sTSSR INCORRECT AFTER ~ DATA 
066474 104456 CSERHRD 
066476 001306 TeoRD 710 
0665 074332 eWORD T26TRL 
066502 012136 «WORD PKTSSR 
8013 066504 370$: CKLOOP ;LOOP IF SELECTED 
8016 0665 104406 ‘ TRAP CS$CLP1 
8015 FERAAAAAAAAEEREEARARREREEAEEREERRKRERREREEREREERREREREERERAEEEEERRERE 
8016 2 
Sole ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
8019 ITITITITLTLILILE LETT LEE TLE LETTE Litt TTT eT TTT TTT TTT 
8020 
8021 066506 013701 071630 MOV T26BFR+6,R1 3GET iS Eee BUFFER 
2 066512 010102 MOV oR SET U P EXPECTED 
8023 066514 052702 010000 BIS #BIT12,R2 SET THE RLL BIT IN EXPECTED 
8024 066520 020102 CMP R1,R2 TARE THEY EQUAL 
8025 066522 001406 BEQ :BR. IF EQUAL (ALL IS WELL) 
8026 066524 005237 002212 INC FATFLG T 
066530 ERRHRD ERRNO, T26LON,EXPREC THE RLL BIT WAS NOT SET IN XSTO 
066530 104456 TRAP CSERHRD 
066532 001307 WO 711 
066534 074100 -WORD T26LON 
066536 015564 «WORD EXPREC 
8031 066540 380$: CKLOOP 
066540 104406 TRAP CS$CLP1 
8032 066542 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
066542 L10115: 
066542 104403 TRAP CSESUB 
8033 066544 023727 002212 000017 CMP FATFLG,#15. zI1S ERROR COUNT AT 25 
8034 066552 103402 BLO 999$ 7BR, IF LESS THAN 25 
8035 066554 004737 017272 JSR PC,CKDROP sTRY TO DROP THE UNIT 


a 
| 

TSV7 = ica — 1-8 
TEST 6: REREAD 





4 
8055 066560 
066560 
066560 
8056 066562 
8057 066566 
pots 4 066572 


806 
8066 066576 
8067 066602 
8068 


8072 066610 
8073 2 


0 

gor 066622 

8076 066630 
77 





104402 


004737 


004737 


104455 
001310 


013737 
012704 


004737 


010001 


104456 
001311 
005054 


074510 
074602 
074644 


016064 
002212 


002172 
071600 


010752 
002212 


F 8 
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071620 


:+ 


;TEST 6, SUBTEST 12 
[VERIFIES THAT A REREAD NEXT COMMAND READI 


;RECORD SHORTER T 


AN THE SP 


NG A 
ECIFIED BYTE COUNT. CA 


USES 
3 TAPE STATUS ALERT sates ae WITH THE a oy LENGTH 
BIT SET. IT IS VERIFIED THAT THE 
RESIDUAL BYTE COUNTER (RBPCR) IN " . ta BUFFER 
CONTAINS THE PROPER NONZERO VALUE ( TH 
;DIFFERENCE BETWEEN THE ORIGINAL BYTE C 


:SHORT (RLS) 


ACTUAL RECORD cpl 


STATES OF OPP (0 AND 


BGNSUB 


JSR 
JSR 
JSR 


PC, T26REST 
PC, T26RT2 
PC, T26RTS 


COUNT AND THE 
nesses ARE VERIFIED FOR BOTH 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


TRAP C$B8SUB 
SET COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET UP OTHER COMMAND PACKET 


SAAR AERAAEEAAEEAEREERAEREREEREERERAEERREAAERERERAEEERERERAEERERREEREKKKEEKEREE 


ISSUE CONTROLLER “‘SOFT'’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


. 
° 
FARA AEAAEAREEEREREERERERAERERERREERRERARREREEREREREERERERREKKEKREE 


208: MOV 


MOV 


PC, SOF INIT 
20$ 
FATFLG 


RO,R1 
ERRNO, SF IERR, SF IMSG 


UNITN, T26DSW 


#T26PACKET,R4 


= ee ON CONTROLLER 
R_ IF INIT WAS OK 

‘8 COUNT 

CONTENTS OF TSSR REGISTER 

FATAL ERROR TSSR WAS NOT S 
TRA CSERDF 
"WORD 712 
«WORD SFIERR 


«WORD SFIMSG 
SET UP UNIT NUMBER 


SUBROUTINE NEEDS PACKET ADDRESS 


FERRARA AAEEAEEREREREEEEEEEREREAKEEERAREREEERRERERERREEEREEEEREEEEEE 


WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


. 
© 
SERA AARERAAEAERERAEERAEEEEEAARARERARAEEAEAEREREREEREEEERERRERAREKEEEE 


PC ,WRTICHR 
6$ 
FATFLG 


M RO,R1 
ERRHRD ERRNO, WRTMSG, SF IMSG 


Zs ISSUE WRITE CHARACTERISTICS 
3:BR, IF COMMAND ISSUED OK 
38 OUNT 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC Parise 


- WORD 
- WORD 


CSERHRD 
713 
WRTMSG 


SEQ 0302 


moe Ce SC OE ee re 


| 6 8 
TSV? - HARDWARE g Tests 1-8 MACRO M1113 25=MAY=82 09:19 PAGE 137-1 


| TEST 6: REREAD SEQ 0303 
| 066656 012124 .WORD SFIMSG 
8092 066660 268: CKLOOP sLOOP IF SELECTED 
| jas 066660 104406 TRAP  C$CLP1 
8094 FARAAEAAARAAAAAAREERAAEAERAEAAERAERERERERERERHEEERARERAEERREREREREEE 
8095 3 
cose s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
8098 ITIIIITILILILILILLLI LITTLE LTT TTT LETT TTT TTT T TTT TTT 
8099 
8100 066662 004737 011104 JSR PC,REWIND 3CALL TAPE REWIND COMMAND 
8101 066666 016501 000002 MOV TSSR(R5),R1 [GET TSSR 
8102 066672 012702 000200 MOV #SSR,R2 :SET UP EXPECTED TSSR 
8103 066676 103407 BCS 30$ ‘BR, IF NO PROBLEM 
8104 066700 010004 MOV RO,R4 [PACKET ADDRESS SET UP 
8105 066702 005237 002212 INC FATFLG : COUNT 
8109 066706 ERRHRD ERRNO, T26RWN,PKTSSR ZREWIND NOT ACCEPTED 
066706 104456 TRAP CSERHRD 
066710 001312 .WORD 714 
066712 073254 -WORD T26RWN 
066714 012136 .WORD PKTSSR 
8110 066716 30$: CKLOOP sLOOP IF SELECTED 
nee 066716 104406 TRAP C$CLP1 
8112 FARRER AAEEEAAARERAEREREREREEAEAAERAREERERAEERREREREEREREREREREREREREE 
8113 3 
gine jREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
8116 I TITITITITLLTLITELELETE LTTE TTT TTT TTT TTT TTT TTT 
8117 
8118 066720 013701 071630 MOV T26BFR+6,R1 sPICK UP XSTO 
8119 066724 010102 MOV R1,R2 3SET ry EXPECTED 
8120 066726 052702 000002 BIS #B1T1,R2 :SET BOT BIT IN EXPECTED 
8121 066732 020102 CMP R1,R2_ :DOES EXP = REC'D 
8122 066734 001406 BEQ 408 [BR, IF EQUAL (OK) 
8123 066736 005237 002212 INC TFLG ‘BUMP COUNT 
8127 066742 ERRHRD ERRNO T26B0T .EXPREC :TAPE NOT AT BOT AFTER REWIND 
066742 104456 CSERHRD 
066744 001313 Mono 715 
066746 072765 -WORD T26B0T 
066750 015564 -WORD EXPREC 
8128 06675 40S: CKLOOP sLOOP IF SELECTED 
066752 104406 TRAP C$CLP1 
8129 066754 012703 000400 MOV #256. ,R3 ZRECORD SIZE 
3130 066760 013737 003114 071722 MOV FREE, T26RB ZSTARTING WRITE BUFFER ADDRESS 
8132 FERAAAARAAAAAAEAARAREREEEEEAERERAREEREREREEEEREERERRERREEREEEEREREE 
8133 ; 
8134 jWRITE DATA,CVC=1,ACK COMMAND 
ais ITITITITILLTTTLELELI TELE T ELT T Tite TTT TTT TT TTT TTT 
8137 
8138 066766 012737 140005 071720 MOV #140005, T26PK3 gWRITE DATA,CVC=1,ACK COMMAND 
8159 06677% 012704 071720 om MOV #T26PK3.R4 :SET UP R4 WITH PACKET ADDRESS 
8141 067000 010337 071726 : MOV R3,126S2 ;SET UP RECORD SIZE IN PACKET 
8142 067004 010465 000000 MOV R4,TSDB(RS) s ISSUE COMMAND 





(——  - nn rn rn nee 
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TEST 6: SEQ 0304 
| 8143 067010 004737 016340 JSR PC,WAITF ;WAIT FOR SSR TO SET 
8144 067014 016501 000002 MOV TSSR(RS),R1 *GET TSSR CONTENTS 
8145 067020 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 
8146 067024 020102 CMP R1,R2 TARE THEY EQUAL 
8147 067026 001406 BEQ 75$ :BR. IF OK 
8148 067030 005237 002212 INC FATFLG COUNT 
8152 067034 ERRHRD ERRNO,WRTERR,PKTSSR *TSSR INCORRECT AFTER WRITE DATA 
067034 104456 TRAP  C$ERHRD 
7036 001314 .WORD 716 
067040 005111 “WORD WRTERR 
067042 012136 «WORD PKTSSR 
8153 067044 75$:  CKLOOP :LOOP IF SELECTED 
067044 104406 TRAP  C$CLP1 
8156 067046 120$: 
8156 FERAAAAARAAAARAREAAEEAAEREEEERERAEEERREREARREREREERREKEEAEEERRERERREEE 
8157 3 
8158 TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
8160 TTITITITILITITILELITI LETT LLLP TTT TTT TTT TTT TTT TT TTT 
8161 
8162 067046 004737 011104 JSR PC REWIND ZCALL TAPE REWIND COMMAND 
8163 067052 016501 000002 MOV TSSR(RS),R1 :GET TSSR 
8164 067056 012702 000200 MOV #SSR,R2 ;SET UP EXPECTED TSSR 
8165 067062 103407 BCS 130$ IF NO PROBLEM 
8166 067064 010004 MOV RO, 2Ré “PACKET ADDRESS SET UP 
8167 067066 005237 002212 INC TFLG [BUMP COUNT 
8171 067072 ERRHRD ERRNO. T26RWN,PKTSSR sREWIND NOT ACCEPTED 
067072 104456 TRAP  CSERHRD 
067074 001315 .WORD 717 
067076 073254 “WORD T26RWN 
067100 012136 ~WORD PKTSSR 
8172 067102 130$:  CKLOOP :LOOP IF SELECTED 
his 067102 104406 TRAP — CS$CLP1 
8174 FRARAAAAAAAARAAARERRAEREEEEEEEERERERAEERRERRERREREEEERAEREREKEEEERREEEE 
8175 : 
8176 TREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
8178 TITTITITILILITILILELITE LETT TELL T TT TTTT TTT TTT TTT TTT TTT TTT TTT 
8179 
8180 067104 013701 071630 MoV T26BER+6, R1 :PICK UP XSTO 
8181 067110 010102 MOV R1,R2 SET we EXPECTED 
8182 067112 052702 000002 BIS #BIT1,R2 :SET BOT BIT IN. EXPECTED 
8183 067116 020102 CMP R1.R2- “DOES EXP = REC’ 
8184 067120 001406 BEQ 136% 7BR. IF EQUAL (OK) 
8185 067122 005237 002212 INC FATFLG 
8189 067126 ERRHRD ERRNO, T26B0T, EXPREC STAPE NOT AT BOT AFTER REWIND 
067126 104456 TRAP CSERHRD 
067130 001316 «WORD 718 
067132 072765 “WORD T26B0T 
067134 015564 -WORD EXPREC 
8190 067136 135$:  CKLOOP :LOOP IF SELECTED 
067136 104406 TRAP — C$CLP1 
8191 067140 012703 001000 MOV #512. ,R3 :RECORD SIZE 
013737 003114 071722 MOV FREE, T26RB [STARTING READ BUFFER ADDRESS 


8192 067144 
8193 


82 04 
8207 067210 
8208 067212 
8209 067214 
8213 067220 

067220 


8236 300 
8240 067304 
067304 


067306 

067310 

067312 
8241 067314 

067314 
8242 067316 
8243 067322 
8244 


‘Wileecmeenromiere 


| 1sv?7 « HARDWARE TESTS 1-8 
TEST 6: REREAD 


012136 
104406 
013701 


001406 
005237 
104456 


161401 071720 
071720 


2 
100204 


002212 


071630 
040000 


002212 


071626 
000400 


001000 
003114 071722 
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FERRARA AAAAEAAEAAAARAAARERAEAREAREERARAREREREEREREERREREREEEREREREEE 


[REREAD NEXT,ACK,CVC=1,0PP=1 


: 
FERRARA AAAAAAAREAEEAEEEAAAREAEREARARARERERERERAEEREREEREREREEREREEE 


165$: 


170$: 


CKLOOP 


#161401, ates 
#T26PK3,R 
R3,T 1265 
R4, TSDB(RS) 
PC WALTE 
TSSR(RS) ,R1 
#SSR!SC'!BIT2,R2 
R1,R2 


1768 


FATFLG 
ERRHRD ERRNO, T26TRL,PKTSSR 


ZREREAD NEXT, ACK,CVC=1,0PP=1 

SET UP R4 wiTH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

WAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

7SET UP EXPECTED 

sARE THEY EQUAL 

BR, IF OK 

76 COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
«WORD 719 
~ WORD T26TRL 
- WORD PKTSSR 


LOOP IF SELECTED 
TRAP CSCLP1 


FERRARA AERERARAAERAEEEEERERERERRREEERERRERRAREEREEREEREREAEEREEEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
FARRAR AAAAAAEAAEEEREEREEREEERAAERARARERARAREREREREERREEREEEREEREKRREERE 


180$: 


190$: 


MOV 
MOV 
BIS 
CMP 
BEQ 


INC 
ERRHRD 


CKLOOP 
MOV 
MOV 
CMP 


BEQ 
ERRHRD 


CKLOOP 


MOV 
MOV 





T26BFR+6,R1 
#BIT14,R2 
R1,R2 


FATFLG 
ERRNO, T26LOP,EXPREC 


Tegerees. R1 


190$ 
ERRNO, T26PBP,EXPREC 


#512. ,R3 
FREE ,T26RB 


sGET MESSAGE BUFFER 
zSET UP EXPECTE 

3SET Li | RLS BIT IN EXPECTED 

ARE THEY EQUAL 

BR, IF EQUAL (ALL IS WELL) 

BUMP COUNT 


[THE RLL BIT WAS NOT SET IN XSTO 
RAP 


CSERHRD 
- WOR 720 
«WORD T26LOP 
«WORD EXPREC 
RAP CSCLP1 
sPICK UP RESIDUAL BYTE COUNTER 
sTHIS SHOULD BE THE DIFFERENCE 
+IS THE DIFFERENCE CORRECT 
CORRECT 
TRBPCR NOT CORRECT 
TRAP CSERHRD 
-WORD 720 
-WORD T26PBP 
-WORD EXPREC 


:LOOP IF SELECTED 
TRAP CSCLP1 
sRECORD SIZ 


E 
sSTARTING READ BUFFER ADDRESS 


SEQ 0305 


— ———. 


ro 





8282 067432 
432 

067434 

436 


440 
8283 067442 
442 


067470 
8292 067472 
067472 
8293 067474 
067474 
067474 


SRSSSSSSS 
= ad od od 


on—— 
-—ONo 


013701 


104456 
001322 
074244 
015564 


104406 


104403 


TSV7 = rent P ate 1-8 
TEST 6: REREAD 


141401 
071720 


000002 
100204 


002212 


071630 
040000 


002212 


071626 
000400 
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071720 


FARRAR ERAERAAERERAAAREREREREEERERAREREAEEERERERAEARERERERAEEEEEEEREE 


REREAD NEXT,ACK,CVC=1,0PP=0 


: 
SPAR AAAAAAAARAAAARAEAAERERAEAEARARERARARAREREERAAAERAREREERERREREEREEEE 


2708: 


ERRHRD 


CKLOOP 


#141401, T26PK3 
#T26PK3,R4 


R3,T 1268 

RG. TSDB(RS) 
TSRCRS), R1 

#SSR!SC!BIT2,R2 

R1,R2 

276$ 

FATFLG 

ERRNO, T26TRL,PKTSSR 


FARA AEAERAAERAAEERERERERERRERARERREREARARRERREREEREREEEREREERKEERERE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


e 
FARRAR AEERAEERERERRERERRERRERRERRERKEEEREREREEARRERERAEERERREKEEREERE 


280$: 


2908: 


ERRHRD 


CKLOOP 


BEQ 
ERRHRD 


CKLOOP 
ENDSUB 





fesernrs. R1 
Wits, R2 
R1,R2 


FATFLG 
ERRNO, T26LOP,EXPREC 


T2GBFRs4, R1 

Ri 2° 

290$ 

ERRNO, T26PBP, EXPREC 


REREAD NEXT, ACK,CVC=1,0PP=0 

3SET UP R4 WITH PACKET ADDRESS 

SET UP RECORD SIZE IN PACKET 

: ISSUE COMMAND 

;WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

zSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

: COUNT 

zTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
«WORD 721 
WORD T26TRL 
-WORD PKTSSR 

LOOP IF SELECTED 
TRAP CSCLP1 

GET MESSAGE BUFFER 

:SET UP EXPECTED 

sSET THE RLS BIT IN EXPECTED 

sARE THEY EQUAL 

:BR, IF — (ALL IS WELL) 

BUMP C 

:THE RLL BIT WAS NOT SET a. xSTO 
TRA CSERHRD 
"WORD 722 
-WORD T26LOP 
«WORD EXPREC 
TRAP CSCLP1 

sPICK UP RESIDUAL BYTE COUNTER 

sTHIS SHOULD BE THE DIFFERENCE 

21S THE DIFFERENCE CORRECT 

:BR, IF CORRE 

:RBPCR NOT CORRECT 
TRAP CSERHRD 
WORD 722 
-WORD T26PBP 
WORD EXPREC 

sLOOP IF SELECTED 

P CSCLP1 


RA 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10116: 

TRAP CSESUB 


SEQ 0306 





| K 
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TEST 6: REREAD SEQ 0307 
8294 067476 023727 002212 000017 cMP FATFLG,4#15. 31S ERROR COUNT AT 25 
8295 067504 103402 BLO 999$ 2BR, IF LESS THAN 25 
8296 067506 004737 017272 JSR PC,,CKDROP zTRY TO DROP THE UNIT 
8297 067512 999$: 


" aenatea anna epeeeneneneamnamnemiasceeetes Roacumamaemmemeaneammanenmaaanae a ee 


| 
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: TEST 6: REREA SEQ 0308 
8299 s@ 
| 8300 5 
tl : TEST 6, SUBTEST 13 
8303 VERIFIES THAT A DATA BUFFER ADDRESS gee 
8304 SNONEXISTENT MEMORY CAUSES RECOVERABLE ERR 
8305 Zs TERMINATION (TC=4 OR 5) WITH NXM=1 AND THAT THE TAPE 
8306 1S ULTIMATELY POSITIONED PROPERLY. ALL COMBINATIONS 
» 8307 [OF REREAD PREVIOUS/NEXT AND OPP=0/1 ARE TESTED. 
8308 3 REARAAAARAARAREREREEERARARAAAERAEARARERARRERERARERAERERAKRARERAREEREEAEEEE 
sau ; CAUTION 
8311 : The LSI BUS drivers for all available address lines(16-21) 
8312 3 are only checked when running on a 11/238 system with more than 
83135 : 128K words of memory! 
8314 3 RAEAERAAAAAEARAREREEERARARAEAERAERAARARAERAERARRARAARAEREREREARRARREEAEEEE 
8315 = 
8316 
8317 067512 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
067512 76.13: 
067512 104402 TRAP c$8SuUB 
8318 067514 005737 003126 TST NXMFLG :D0 WE HAVE IT? 
8319 067520 001002 BNE 10$ R, IF ENOUGH 
8320 067522 000137 070504 JMP 200$ :SkiP THIS TEST IF NOT 
8321 067526 004737 074510 10$: JSR PC, T26REST T COMMAND PACKET 
8322 067532 005037 071746 CLR T26CNT [CLEAR TAPE RECORD COUNTER 
8323 067536 004737 074602 JSR PC, T26RT2 :SET UP OTHER COMMAND PACKET 
Seee 067542 004737 074644 JSR PC, T26RT3 :SET UP OTHER COMMAND PACKET 
8326 FARRAR AAAAAARAEREAAERAEERERERERERERARERERREREREREREREEREREREERREKKREE 
8327 $ 
Bese s ISSUE CONTROLLER ‘’SOFT’’ INITIALIZE - CARRY BiT CLEAR IF ERROR 
8330 PT TTITTTITILTLELE LETT TELE TELE T TT TTT TTT TTT TTT TTT TTT TTT TT 
8331 
8332 067546 004737 016064 JSR PC,SOFINIT 3Dd0 tt ON CONTROLLER 
8333 067552 103407 BCS 20$ [BR IF INIT WAS Ok 
8334 067554 005237 002212 INC FATFLG sBUMP COUNT 
8338 067560 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
8339 067562 ERRDF ERRNO, SFIERR,SFIMSG * FATAL ERROR TSSR WAS NOT re 
067562 104455 TRA CSERDF 
067564 001323 "WORD 723 
003650 -WORD SFIERR 
067570 012124 -WORD SFIMSG 
exe 067572 013737 002172 071620 208: MOV UNITN, T26DSW ;SET UP UNIT NUMBER 
ast 067600 012704 071600 MOV #T26PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
8344 FERRARA AEEAAAAREEREEEEEEEAERAREREREEEAEERAEEEEREEREREREEEREREEERE 
8345 ; 
oxo sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
8348 SeeeeRReeeeReReeeeReeeeeeeeneReeneneeeeneeeneneneeenneneteeeeeener 
8349 
8350 067604 004737 010752 JSR PC,WRTICHR Z ISSUE WRITE CHARACTERISTICS 
8351 067610 103407 BCS 26$ :BR, IF COMMAND ISSUED Ok 


8352 067612 005237 002212 INC FATFLG sBUMP COUNT 
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TEST 6: REREADS SEQ 0309 

8356 067616 010001 MOV RO,R1 zSAVE CONTENTS OF TSSR 

8357 067620 ERRHRD ERRNO,WRTMSG,SFIMSG [WRITE CHARACTERISTISC ess 
067620 104456 CSERHRD 
067622 001324 TOORD 724 
067624 005054 «WORD WRITMSG 
067626 012124 «WORD SFIMSG 

8358 067630 26$: CKLOOP ;LOOP IF SELECTED 

8359 067630 104406 TRAP CSCLP1 

8360 FERRARA AEAAEAERARAEEREREEREERARERRERERRERAAREREEREREEERERRERERHEREE 

8361 3 

ate Zs ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

8364 ITTITITITILITIT LTTE LTT T LTT LL T TTT TTT TTT TTT TTT 

8365 

8366 067632 004737 021276 JSR PC, INVERT Zs INVERT THE hg = FEATURES SWITCH 

8367 067636 004737 011104 JSR PC REWIND sCALL ars REWIND COMMAND 

8368 067642 103411 BCS 30$ IF NO PROBLEM 

8369 067644 016501 000002 MOV TSSR(RS) ,R1 ‘eet TSSR- 

8370 067650 010004 MOV RO, oy sPACKET ADDRESS SET UP 

8371 067652 005237 002212 INC FATFLG 3 T 

8375 067656 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
067656 104456 TRAP CSERHRD 
067660 001325 eWORD 725 
067662 073254 -WORD T26RWN 
067664 012136 -WORD PKTSSR 

8376 067666 30$: CKLOOP ;LOOP IF SELECTED 

8377 067666 104406 TRAP CSCLP1 

Sere LARA AERAREEREEEREEEEAERAERERERERRERERREEREEERREEREERRREREEERERERKEE 

837 $ 

eset sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

oat ITT IIITITELTTIL TTT ELT T ETE LITE LET TTT TTT TTT TTT TTT TTT 

8 

8384 067670 013701 071630 MOV reteners. R1 sPICK UP XxSTO 

8385 067674 010102 MOV R1,R2 3SET UP EXPECTED 

8386 067676 052702 000002 BIS #BiT1, R2 SET BOT BIT IN EXPECTED 

8387 067702 020102 CMP R1,R2° [DOES EXP = REC'D 

8388 067704 001406 BEQ 40$ :BR. IF EQUAL (Ok) 

8389 067706 005237 002212 INC FATFLG 

8393 067712 ERRHRD ERRNO, T26B0T,EXPREC TAPE NOT AT BOT AFTER REWIND 
067712 104456 TRAP CSERHRD 
067714 001326 eWORD 726 
067716 072765 -WORD T26BOT 
067720 015564 «WORD EXPREC 

8394 067722 40$: CKLOOP ;LOOP IF SELECTED 
0677, 104406 TRAP CSCLP1 

Ee 067724 013737 003114 071722 MOV FREE, T26RB :STARTING WRITE BUFFER ADDRESS 

itd FERRARA AREREEAAERAERAREEAERRAAERAAEREREREEEAEEEREREREERERERE REE 

8398 : 

+443 sWRITE DATA,CVC=1,ACK COMMAND 

8401 TTT TTTTILTLTTEL EL ETT TELE TERT TTT TTT TTT Tee TTT TTT 


8402 
8403 067732 012737 140005 071720 MOV #140005, T26PK3 sWRITE DATA,CVC=1,ACK COMMAND 
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8404 067740 012704 071720 MOV #T26PK3,R4 :SET UP R4 WITH PACKET ADDRESS 
8405 067744 012737 000400 071726 65$: MOV #256. ,126SZ ‘SET UP RECORD SIZE IN PACKET 
8406 067752 013777 071746 113134 MOV TO6CNT, @F REE :MOVE TAPE RECORD NUMBER TO BUFFER 
8407 067760 062737 000001 071746 ADD #1, T26CNT ZNUMBER READY FOR NEXT RECORD 
8408 067766 010465 000000 MOV R4.TSDB(RS) ZISSUE COMMAN 
8409 067772 004737 016340 JSR PC.WAITF :WAIT FOR SSR TO SET 
8410 067776 016501 000002 MOV TSSR(R5) RI 7GET TSSR CONTENTS 
8411 070002 012702 000200 MOV #SSR_R2 :SET UP EXPECTED 
8412 070006 020102 CMP R1,R2 SARE THEY EQUAL 
8413 070010 001406 BEQ 75$ ‘BR, IF O 
8414 070012 005237 002212 INC FATFLG [BUMP COUN 
8418 070016 ERRHRD ERRNO,WRTERR,PKTSSR TSSR SOU ORRECT AFTER WRITE DATA 
070016 104456 TRAP  CS$ERHRD 
070020 001327 «WORD 727 
070022 005111 -WORD WRTERR 
070024 012136 “WORD PKTSSR 
8419 070026 75$:  CKLOOP :LOOP IF SELECTED 
70026 104406 TRAP _—‘C$CLP1 
8420 070030 022737 000013 071746 CMP #11.,T26CNT :CHECK NUMBER OF RECORDS WRITTEN 
8421 070036 001401 BEQ 120$ “BR, IF AT END OF WRITE SEQUENCE 
8422 070040 000741 BR 65$ [WRITE MORE RECORDS 
8423 070042 120$: 
8424 070042 005037 071746 CLR T26CNT ;SET RECORD COUNTER BACK TO ZERO 
8426 SAAR AARAEEREREREAEEAEEREERAEAEREAEREEREEERREEEEEREREEKEEREEREEREE 
8427 3 ° 
8428 TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
8430 SRRRARKRERERERERRRREEER EE ERR ERE RE REE ERR ERE EERE REEER EERE ERS 
8431 - 
8432 070046 004737 011104 JSR PC REWIND ZCALL TAPE REWIND COMMAND 
8433 070052 103411 BCS 130$ ‘BR, IF NO PROBLEM 
8434 070054 016501 000002 MOV TSSR(R5S),R1 :GET TSSR 
8435 070060 010004 MOV RO, Rs [PACKET ADDRESS SET UP 
8436 070062 005237 002212 INC ; 
8440 070066 ERRHRD ERRNO. T26RWN,PKTSSR SREWIND NOT ACCEPTED 
070066 104456 TRAP  CSERHRD 
070070 001330 .WORD 728 
070072 073254 “WORD  T26RWN 
070074 012136 “WORD PKTSSR 
8441 070076 130$:  CKLOOP :LOOP IF SELECTED 
saa 070076 104406 TRAP _— C$CLP1 
8443 FERRARA ERERERERERAEEREREARAEREEEEERERERAEEEEEREEAKERREREREEE 
844 ; ; 
8445 TREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
8447 TTTITITILILITILELE LETT TTT T TTT TTT TTT TTT TT ? 
8448 
8449 070100 013701 071630 Mov T26BER+6, R1 :PICK UP XSTO 
8450 070104 010102 MOV R2 [SET UP EXPECTED 
8451 070106 052702 000002 BIS fait. R2 :SET BOT pelt IN EXPECTED 
8452 070112 020102 CMP R1,R2- [DOES EXP = REC'D 
8453 070114 001406 BEQ 140$ BR, IF EQUAL (OK) 
8454 070116 005237 002212 INC FATFLG [BUMP COUNT 
8458 070122 ERRHRD ERRNO, T26BOT,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
070122 104456 TRAP — CSERHRD 
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070124 
070126 


070130 
8459 070122 
070132 
8460 070134 


8461 070140 
964) 070146 


8498 070256 
99 


506 
8507 070322 
8511 070326 
070326 





001006 
005237 
104456 


012136 
104406 


012737 


005237 
104456 





071736 
003130 
003132 


071720 
2 


104210 


001000 
000002 


002212 


140001 


000200 


002212 
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071722 
071724 


071726 


071720 
071726 
071722 


140$: CKLOOP 
MOV #T26RN,R3 
150$: MOV NXMLO, T26RB 


MOV NXMHI , T26RB+2 


LOOP IF SELECTED 


- WORD 
«WORD 
«WORD 


TRAP 
COMMAND BUFFER ADDRESS 
STARTING READ BUFFER ADDRESS 


SET UP HIGH ORDER ADDRESS BITS 


J ERAAAAAAEAAREAEEEAEERAREREEEREERRRRRERARRERERAEERRERREERRREREREREREEEE 


TREREAD DATA,IE,ACK, OPP COMMAND 


° 
FRARAAARAARRAERAREERERRREEREREREEEREREERREREERRRRREREREEEEERRRRERERERERE 


ee DATA, IE,ACK, OPP COMMAND 


MOV (R3) , T26PK3 


165$: MOV AT26PK3,R4 
MOV #256. ,T26SZ 
MOV RG, TSHB(R5) 
JSR PC.WAITF 
MOV TSSR(RS),R1 
MOV #SSR!NXM!SC!BIT3, R2 
CMP RI Re 
BEQ 
BIT ta) .#BIT9 
BEQ 168$ 
BIT R1,4B1T1 
BNE 170$ 
168$: 
NC FATFLG 
ERRHRD ERRNO, T26RRF,PKTSSR 
170$:  CKLOOP 


T UP R4 WITH PACKET ADDRESS 


{SET UP RECORD SIZE IN PACKET 
SSUE COMMAND 


WAS BIT1 $ 


il C 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
sARE THEY EQUAL 


‘BR, IF OK 
'CHECK FOR A READ COMMAND 
:BR, IF IT WAS A 


A READ COMMAND 


SET 
BR, IF REREAD AND BIT1 SET 


LOOP IF SELECTED 


:BUMP COUNT 
z:TSSR INCORRECT AFTER REREAD DATA 
TRAP oe 


«WORD 


TRAP 


SERRA ARARERARARAERAEAEREAERERAERARAARAARAARERERERRERERERRERRERREEERKREEREE 


[READ DATA, ACK,CVC=1 COMMAND 


. 
° 
SAAR AAARAAEAAEEREAERARAREAEEEEEAARAEARERERRRERAERRREREREEREEREEREKEKEKEE 


sREAD DATA, aang Sie 1 COMMAND 


MOV #140001, T26PK3 
MOV #256. ,T26SZ 
CLR 26RB+2 

MOV FREE, T26RB 
MOV R4, TSDB(RS) 
JSR PC ,WAITF 

MOV TSSR(R5), R1 
MOV #SSR,R2 


ee 


FATFLG 
ERRHRD ERRNO,RDERR,PKTSSR 


SET SIZE INTO P 


CKET 
Se OUT HIGH ADDRESS BITS 
;GIVE READ A ry BUFFER 


ZISSUE READ DAT 
{WAIT FOR SSR 


PICK UP THE TSSR 
eee EXPECTED 


A COMMAND 


TSSR OK 
:BR, IF io OK (GOOD) 
BUMP C 
;READ DATA. COMMAND FAILED 


TRAP 


729 
T26B0T 
EXPREC 


CSCLP1 


T26RRF 
PKTSSR 


CSCLP1 


CSERHRD 


SEQ 0311 


—— 
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70330 
070332 


0334 

8512 070336 

0336 

8513 Lat a 
514 070344 


0 4 
8557 ho 4 
8558 070460 





001334 
071756 
015564 
104406 


oes at 


4 
005237 
104456 


0 
012136 
104406 


013701 


104406 
010302 


112550 
000001 


002212 


011104 
000002 
002212 


071630 
000002 


002212 


180$: 


190$: 
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CKLOOP 
MOV aFREE,R1 
MOV #1,R2 
CMP R1.R2 
BEQ 1908 

INC 


TFLG 
ERRHRD ERRNO. T26WNG, EXPREC 


CKLOOP 


«WORD 

«WORD 

- WORD 
;LOOP IF SELECTED 


TRAP 
sFIRST WORD FROM READ BUFFER 
:SET_UP_EXPECTE 

21S TAPE POSITION oo 
KEEP GOING POSITION 


BUMP COUNT 

;TAPE POSITION INCORRECT 
TRAP 
«WORD 
«WORD 
«WORD 


TRAP 


FRAAAAAAAAEEEERRAERERREERERERERRERRREERRERRERERREREERERRERREREEREERERE 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
6 
FERAAARAAAERAAEEAREERRREREERERAAERERAREREREREARARARRRERREREREREREREEE 


194$: 


JSR PC REWIND 
194$ 


MOV TSSR(R5),R1 
MOV RO,R4 


INC FATFLG 
ERRHRD ERRNO, T26RWN,PKTSSR 


CKLOOP 


:CALL TAPE REWIND COMMAND 
ert ro PROBLEM 


7G SSR 

sPACKET ADDRESS SET UP 
COUNT 

REWIND NOT ACCEPTED 


LOOP IF SELECTED 
TRAP 


SERA ARAAAEEAEAERARREAEEAERERAEREREAREARREREERERRREREREREREEREEKREEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


. 
2 
FERRARA AAEEAREREREREEEEEREREREEERRARERERARREERRREEREERREREEKERREEEE 


196$: 


MOV iecaees. oR1 


MOV 

BIS #BiT1,R2 
CMP R1,R2- 
BEQ 1968. 


INC 
ERRHRD ERRNO. T26B0T ,EXPREC 


CKLOOP 
MOV R3,R2 


3B OUN 
: TAPE NOT AT BOT AFTER — 


zPICK UP_XSTO 
SET UP_ EXPECTED 
SET BOT a IN EXPECTED 
DOES EXP = REC'D 
:BR, IF EQUAL (OK) 
UMP COUNT 


s:LOOP IF SELECTED ‘os 
zSAVE R3 FOR A MOMENT 


SEQ 0312 
731 
RDERR 
PKTSSR 


CSCLP1 


CSERHRD 
732 
T26WNG 
EXPREC 


CS$CLP1 


CSERHRD 
733 
T26RWN 
PKTSSR 


C$CLP1 


CSERHRD 
734 


T26B80T 
EXPREC 


CSCLP1 


aD 
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TEST 6: REREA SEQ 0313 

8559 

8560 Saami ih ala i dala eee 

8561 

856. ISSUE SPACE RECORDS COMMAND = VALUE 7 R3 SETS NUMBER OF RECORDS 

S2e7 :B1T 15 SETS DIRECTION = O=FORWARD 1=REVERSE 

8565 s SuOSUUNERNRENAOSEREENANReeNANNEeERNetOnEseenenDNnnStEtnnbeNsnen 

8566 

8567 070462 012703 000001 MOV #1,R3 sSPACE ONE RECORD 

8568 070466 004737 010556 JSR PC, SPACE sCALL SPACE ROUTINE 

8569 070472 010203 MOV R2,R3 sRESTORE RS 

8570 070474 005723 TST (R3)+ ;BUMP COUNTE 

8571 070476 021327 177777 CMP (R3) 4177777 sEND OF COMMAND BUFFER YET 

8572 970502 001216 BNE 150$ sMORE COMMANDS KEEP GOING 

8573 070504 200$: 

8574 070504 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
070504 L10117: 
070504 104403 TRAP CSESUB 

8575 070506 023727 002212 000017 CMP FATFLG,#15. :1S ERROR COUNT AT 25 

8576 070514 103402 BLO 999$ :BR, IF LESS THAN 25 

8577 070516 004737 017272 JSR PC, CKDROP TRY TO DROP THE UNIT 

8578 070522 999$: 





SREREETE 
MS VONOUMULw 


2 
862 
86 


070622 
8631 070624 
070624 


104402 


004737 
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074510 
074602 
074644 


016064 
002212 


002172 
071600 


010752 
002212 
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s¢ 


STEST 6, SUBTEST 14 


sVERIFIES THAT REREAD PREVIOUS WITH OPP=0 (SPACE 
sREVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=1 
2 (READ REVERSE, SPACE FORWARD) ISSUED WHEN THE TAPE 
sPOSITIONED AT BOT CAUSE FUNCTION REJECT TERMINATION 
sWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 


SEQ 0314 


R3 
JSR PC, T26REST 
JSR PC, T26RT2 
JSR PC, T26RTS 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


TRAP C$B8SUB 
4 TEST COUNTER 
T COMMAND PACKET 
SSET UP OTHER COMMAND PACKET 
SET UP OTHER COMMAND PACKET 


FAEARARAERARAERAEEEREREREEEREEEEERERREEEREREREEEERERERERREREKRKEKEKEE 


ISSUE CONTROLLER “‘SOFT'’ INITIALIZE - CARRY BIT CLEAR IF ERROR 


e 
J AAAARAAEAEEERRERERAERREERERERERAERAREREREEAREEREREERRERREREKEKKERKKKEE 


JSR PC,SOFINIT 
20$ 
INC FATFLG 


:D0 INITIALIZE ON CONTROLLER 
:BR IF al WAS OK 


38 C 
;CONTENTS OF TSSR REGISTER 


MOV RO,R1 : 

ERRDF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
-WORD 735 
«WORD SFIERR 
eWORD SFIMSG 

071620 20S: MOV UNITN, T26DSW :SET UP UNIT NUMBER 
MOV #T26PACKET,R4 SUBROUTINE NEEDS PACKET ADDRESS 


J RAAAAAAAAEAAEAEAEEAERERREEEERERERARAERAEAREEERRERREEEERERREEREEKEKEKEEE 


WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


e 
J RRAARAAEAERAERERARERERREREREEARARERERERRRAAEERAERERAEEREREERRREREEEEE 


JSR PC ,WRICHR 


TISSUE WRITE CHARACTERISTICS 

BCS 25$ 'BR, IF COMMAND ISSUED OK 

INC FATFLG : 

MOV RO,R1 TSAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SF IMSG [WRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
«WORD 736 
“WORD wWRTMSG 
“WORD  SFIMSG 

25$:  CKLOOP SLOOP IF SELECTED 

TRAP — CSCLP1 





TSV7 = got — 1-8 


TEST 6: REREAD 


4 070646 005237 
070652 104456 


070660 012136 
070662 104406 


6 
8657 070664 013701 


070714 015564 
8667 070716 
070716 104406 
070720 012737 
9 070726 013737 
86 70734 005703 
8671 070736 001404 
8672 
8673 
8674 
8675 
8676 
8677 


8 
8679 070740 012737 
nono 070746 000403 








011104 
000002 
000200 


002212 


071630 
000002 


002212 


000400 071726 
003114 071722 


161001 071720 
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J RRAAAAAAAAEAAEAAARAREERERERAEAEAAERERERARREEEEREEREREEREEREEREREEEE 


TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


e 
FERRARA AAAERAERAEAAEAEEAAERAREERAEREAEEEERRAEAREEERERREEREREREEEEEEEE 


PC REWIND 


26$: 


30$: 


CKLOOP 


TSSR(RS),R1 


#SSR,R2 
30$ 


RO,R4 


FATFLG 
ERRHRD ERRNO, T26RWN,PKTSSR 


3CALL_TAPE REWIND COMMAND 
:GET TSSR 

SET UP EXPECTED TSSR 
BR, IF NO PROBLEM 
PACKET ADDRESS SET UP 

; COUNT 


SREWIND NOT ACCEPTED 


:LOOP IF SELECTED 


SEAAARAAEREREREERERAEREEREEEERREEERAEREERAEERREREEREERERREEEREEEREKEKEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


e 
SRAAARAAAEEEREREARERERERREEERAERAEREREERERAERAERRRERRERREREREREERERREREE 


40$: 


I 
ERRHRD 


CKLOOP 


T26BFR+6,R1 
#BiT1, 
R1,R2 


FATFLG 
ERRNO, T26B0T ,EXPREC 


#256. 12682 
REE 


R2 


- T26RB 


R 
50$ 


sPICK UP XxSTO 

:SET UP_ EXPECTED 

:SET BOT BIT IN pwestes 
;DOES EXP = REC'D 

BR, IF EQUAL (OK) 

BUMP COUNT 

TAPE NOT AT BOT AFTER g thy 


- WORD 

«WORD 

«WORD 
LOOP IF SELECTED 


:SET UP RECORD ay IN PACKET 
ADDRESS OF READ 5 


CSERHRD 
737 


T26RWN 
PKTSSR 


CSCLP1 


CSERHRD 
738 
T26B80T 
EXPREC 
CSCLP1 


FER 
K NUMBER OF TIMES THROUGH HERE 


: CHECK 
BR, IF FIRST TIME THROUGH HERE 


SAEAAARAAARAREEAERARAERAEREEREAEREAEEREREEERARERRERAREREREEEEEREEREEEEE 


TREREAD,CVC=1,ACK COMMAND 


e 
FERAAAAEAAAARAAAERAARERAEAEAAAAAREAAAEAERERREEREEEEEREREEEEEEREREREE 


MOV 
BR 


#161001, T26PK3 
558 


REREAD, CVC=1,ACK COMMAND 
:SKIP NEXT COMMAND 


FRRAAAAAAEAARERERARARAEREEEAEEAAAEEARERAEEEREREEREEAEERERREREREEREREREE 


SREREAD,ACK COMMAND 


SEQ 0315 


‘Eno 


TSV7 = Me tor ~~ 1-8 
TEST 6: 


4 
| 


8716 071042 


8721 071036 
8722 071060 


8723 071062 
8724 Reine 


8728 071102 





012737 
012704 


012136 
104406 


013701 


141001 
071720 
000000 


100206 


002212 


071630 
002000 


002212 


002212 
017272 
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071720 


000017 


e 
FRR AAAARAERAEREAAEEEAEAEEERAREREERERREREEEEEREERERERAEAERERAEEEREE 


50$: 
55$: 


65$: 


75$: 


MOV 


CKLOOP 


#141001, T26PK3 


#T26PK3,R4 
R4,TSDB(RS) 
PC ,WAITF 


TSS 


75$ 


FATFLG 
ERRHRD ERRNO, T26WDE ,PKTSSR 


R(R5),R1 
MSSRISC!BITI!BIT2,R2 
R1,R2 


sREREAD,ACK COMMAND 

SET UP R4 WITH PACKET ADDRESS 

2 ISSUE COMMAND 

WAIT FOR SSR TO SET 

ET TSSR CONTENTS 

:SET UP EXPECTED 

sARE THEY EQUAL 

2BR, IF OK 

BUMP COUNT 

zTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 739 
WORD T26WDE 


-WORD PKTSSR 
TRAP CSCLP1 


LOOP IF SELECTED 


FERRARA AAAAREARAEERRREEARREREERAEAAEERAEREREREEERERRERRERREERERREERREREE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
FTRECARARAAEAEREAEEEAEREREEERERARAEERAREAEEERERAEERAERRRERAKEEEKEEREEEE 


170$: 


999$: 


ERRHRD 


CKLOOP 


T26BF R+6,R1 
#B1T10,R2 
R1,R2 


FATFLG 
ERRNO, T26NEF ,EXPREC 


R3 
26$ 


FATFLG,#15. 
999$ 
PC, CKDROP 


2GET yi STATUS WORD 
T XPECTED 


:BR. IF EQUAL <Go0D) 


NEF SHOULD BE SET 
TRAP ——— 


T26NEF 
EXPREC 
TRAP CSCLP1 
sRESET THE SWITCH 
7BR, IF FIRST TIME THROUGH HERE 
L10120: 
31S ERROR COUNT AT 25 


zBR, IF LESS THAN 25 
:TRY TO DROP THE UNIT 


CSESUB 


SEQ 0316 


— 7 


oe a a 


—‘TSv7 = HARDWARE TESTS 1-8 





TEST 6: REREAD 


071146 
gree 071150 
ares 071156 


8781 071176 
1176 


071200 
071202 
071204 
8782 071206 


104402 


004737 


004737 


010001 
104455 


013737 
012704 


104456 
ool ee 
0050 


O13434 


071750 


074644 


016064 
002212 


002172 
071600 


010752 
002212 
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071620 


+ 


STEST 6, SUBTEST 15 


sVERIFIES THAT REREAD PREVIOUS WITH OPP=1 (SPACE 
sREVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=1 
3 (READ REVERSE, SPACE FORWARD) Het WHEN THE TAPE 
POSITIONED JUST BEFORE THE FIRST 
sNOT AT BOT) CAUSES TAPE STATUS ALERT TERMINATION WITH 
+ THE REVERSE INTO BOT (RIB) STATUS BIT SET. 


CLR T26CN 

JSR PC, TO6REST 
JSR PC, T26RT2 
JSR PC, T26RTS 


RECORD ON TAPE (BUT 


y>>>>>>>>>>>> =o SUBTEST >>>>>>>>>>>> 


TRAP 
CLEAR OUT COUNTER 
SET COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET UP OTHER COMMAND PACKET 


FERRARA RAAEREREEEEREEARERERERERARAREREERARERERRERERERREREERKERREEEEE 


ISSUE CONTROLLER “‘SOFT'’ INITIALIZE - CARRY BIT CLEAR IF ERROR 


6 
SRAAAAAAERARARAEREEARERAEEREREKEEREREAERAEARAERRERAERAREEREEARERERERE 


20$: 


25$: 


JSR PC, SOF INIT 
20$ 
INC FATFLG 
RO,R1 
ERRNO, SFIERR,SFIMSG 


MOV UNITN, T26DSW 
MOV #T26PACKET,R4 


JSR PC,WRTCHR 
BCS 25$ 
INC FATFLG 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG,SFIMSG 


CKLOOP 


D0 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 


28 COUNT 
CONTENTS OF TSSR REGISTER 
:FATAL ERROR TSSR WAS wag 


- WORD 

- WORD 

- WORD 
3SET UP UNIT NUMBER 


C$B8SUB 


CSERDF 
741 


SFIERR 
SF IMSG 


; SUBROUTINE NEEDS PACKET ADDRESS 


J AERAAAAARAEERARAEEEEEREEEEREREREARAAERERERREEREREERERERERRERKEKEEEEERE 


WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


6 
FRARAAAARAAAEAEAAAEAAAAERAEEREERERERAAREEREEREREERAEERERARREREREEREREEE 


ISSUE WRITE CHARACTERISTICS 
F COMMAND ISSUED Ok 


TSAVE CONTENTS OF TSSR 
[WRITE CHARACTERISTISC FAILED 


LOOP IF SELECTED 


CSERHRD 
742 


WRTMSG 
SF IMSG 


TSV7 = wreras — 1-8 
TEST 6: REREAD 


f 

| 

j 

| 071206 164406 
| g783 


8785 
8786 
8787 
8788 
8789 
8 071210 004737 011104 
8791 071214 016501 000002 
8792 071220 012702 000200 
8793 071224 103407 
8794 071226 010004 
8795 071230 005237 002212 
071234 
071234 104456 
1236 001347 
071240 073254 


071242 012136 
071244 104406 


peti 071246 013701 071630 
8810 or iSec gaerie 000002 


1 
2 1406 
; 071264 005237 002212 


713 
071300 104406 


000001 
010556 


000002 
002212 
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TRAP 


FRARERAAAARAEAAARAREREEREREEAREARARREREREREREEREERERERREHERERERRERERE 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


° 
FARRAR AAEARAAAEARAARAREEERRAREAEREAEEERERRERERRERRARRREREEEREERREEEE 


26$: JSR PC ,REWIND 3CALL_TAPE REWIND COMMAND 
MOV TSSR(R5),R1 GET TSSR 
MOV #SSR,R2 :SET UP he Phone? a 
BCS 30$ 7BR, NO P 
MOV RO,R4 ;PACKET ADDRESS” SET UP 
INC FATFLG COUNT 
ERRHRD ERRNO, T26RWN,PKTSSR REWIND NOT ACCEPTED a 
- WORD 
«WORD 
«WORD 
30$: CKLOOP LOOP IF SELECTED 
TRAP 


SAAAAAAARARAAERERERAEEAEEEREEERAERREEEREERERAREEERREREREEERKEKEREKRKREE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


e 
FARAAAAAEAEAAERAERARARAERERERERAERREERERRARERARERRERREREREREERREREREREEE 


MOV a Agia R1 zPICK UP _XSTO 

MOV R2 zSET UP EXPECTED 

BIS Witt, R2 SET BOT BIT IN etree 

CMP R1,R2- DOES EXP = REC'D 

BEQ 408 iBR, IF EQUAL (OK) 

INC TFLG [BUMP COUNT 

ERRHRD ERRNO. T26B0T ,EXPREC TAPE NOT AT BOT AFTER oe 
«WORD 
— 

40$: CKLOOP 

TRAP 


ahaa aati aetna lala 


ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
:B1T 15 SETS DIRECTION = O=FORWARD 1=REVERSE 


Silsbee acide atari 


MOV #000001 ,R3 :SET UP Gins FORWARD 1 RECORD 
JSR PC, SPACE Ht ae SPACE COMMAND 

BCS 75 -BR, ran 

MOV TSSR(R5) ,R1 GET STATUS DATA 

MOV RO,R4 iGET PACKET ADDRESS 


INC FATFLG : BUM 
ERRHRD ERRNO, T26WDE ,PKTSSR ZTSSR INCORRECT AFTER a © ee 


CSCLP1 


CSERHRD 
743 


T26RWN 
PKTSSR 


CSCLP1 


CSERHRD 
Fa4 


T26B80T 
EXPREC 


CSCLP1 


CSERHRD 


SEQ 0318 


ee YH 


|" TSV7 = HARDWARE TESTS 1-8 
TEST 6: REREAD 


071330 061351 


072713 
012136 


104406 


100001 
010556 


000002 
002212 


012703 
004737 


012136 


104406 
013737 
005737 
001404 


003114 
071750 


8867 071412 
see 071420 


012737 
000403 


161001 


012737 
012704 
5 


141001 
071720 
0 

100204 
001406 
005237 
104456 


002212 


8889 071464 
1464 





071722 


071720 


071720 
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75$: CKLOOP 


WORD 745 

-WORD T26WDE 

«WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CSCLP1 


ee 


ISSUE SPACE RECORDS COMMAND = VALUE IN R3 at NUMBER OF RECORDS 


:B1T 15 SETS DIRECTION = O=FORWARD 


MOV #100001 . R3 

JSR PC, SPACE 

BCS 198s 

MOV TSSR(RS),RI1 

MOV RO,R4 

INC FATFLG 

ERRHRD ERRNO, T26WDE,PKTSSR 
175$:  CKLOOP 

MOV FREE, 126RB 

TST T26CNU 

BEQ 176 


; C 
zTSSR INCORRECT AFTER READ DATA 
TRAP 


1=REVER 


+ es eeennnnseqnnnanennennanmnesnnennenenenennentneneannententenneta 


:SET SPACE REVERSE 1 RECORD 
: ISSUE are 


:G0 ON IF ALL IS WELL 

7GET TSSR CONTEN TS 

SET UP EXPECTED (PACKET CONTENTS) 
UMP COUNT 


CSERHRD 
«WORD 746 
-WORD T26WDE 
«WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 


sADDRESS OF BUFFER 
:CHECK FOR TIMES THROUGH HERE 
BR, IF FIRST TIME THROUGH 


FRRAAAAAAAAEAAAERERAEREREEEEAEEERAAERERERARERERERREREREEEREREEREEEEE 


[REREAD (PREVIOUS),IE,ACK,OPP=1 CMD. 


. 
FRAAAAAREREREREEEERERERAEEEEERARARAEERERERRAEEREERERREEEEERAEEREEREEE 


MOV #161001, T26PK3 
BR 178$ 


REREAD (PREVIOUS) ,IE,ACK,OPP=1 CMD. 
SKIP NEXT COMMAND 


FARAAAAAAAAAARERAEAEEREEEEEAAEAEAARARERARARERRRREREEEEEERERERERERERE 


SREREAD ,ACK,OPP=1 COMMAND 


. 
° 
SARAAREAAERAEAARERERAREEREREEEEAEAEEEARAAREREREREEREREEEEEKEREREREREEEE 


sREREAD ,ACK,OPP=1 COMMAND 


1768: MOV #141001, 126PK3 
MOV #T26PK3,R4 
MOV R4, TSDB(RS) 
JSR PC ,WAITF 
MOV TSSR(RS) RI 
MOV #SSR'SC'BIT2,R2 
CMP R1,R2 
BEQ 180$ 
INC 


FATFLG 
ERRHRD ERRNO, T26WDE ,PKTSSR 


SET UP_R4 WITH PACKET ADDRESS 
SSUE COMMAND 


3f 

WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 

ZARE ie oe EQUAL 


COUNT 
STSSR INCORRECT AFTER READ DATA 


TRAP CSERHRD 


SEQ 0319 


—— 








1466 

O71490 

1472 

8890 071474 
474 

8891 071476 


071526 
8901 071530 
071530 
8902 071532 
8903 071536 
8904 071540 
071540 
071540 
8905 071542 
8906 071550 
8907 071552 
8908 071556 
8909 
8910 
8911 
8912 071556 


8916 071570 
1570 
071572 


015564 


104406 
005137 
001224 


104403 
004737 


004737 
103002 
0001 


104432 
003102 


TSV7 = eens — 1-8 
TEST 6: REREAD 


071636 
000001 


002212 


071750 


002212 
017272 


016546 
055414 
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000017 


180$: 


190$: 


CKLOOP 


ERRHRD 


CKLOOP 
COM 


T26BER+14, ARI 
#BiT0,R2 
R1,R2 

190$ 


FATFLG 
ERRNO, T26NEF ,EXPREC 


T26CNU 
26$ 


FATFLG,#15. 
PC,CKDROP 


rt TSTLOOP 
T26LO00P 
TST 


sLOOP IF SELECTED 


sGET XST3 STATUS WORD 
SET UP EXPECTED 
:SET THE NEF BIT 
z ARE THEY EQUAL 
R, IF EQUAL (Goo) 


NEF SHOULD BE SET 


TRAP 
SET SWITCH Lag OTHER WAY 


BR, IF FIRST TIME THR 


747 
T26WDE 
PKTSSR 


CSCLP1 


CSERHRD 
748 


T26NEF 
EXPREC 


CSCLP1 


OUGH 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10121: 


TRAP 
1S ERROR COUNT AT 25 
:BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 


D0 WE NEED TO ITERATE TEST 


BR, if NO LOOP 
sEXECUTE AGAIN 


zALL DONE THIS TEST 


REQUIRED 


C$ESUB 


SEQ 0320 
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TEST 6: REREAD SEQ 0321 
8918 3+ 
oaks ;LOCAL STORAGE FOR THIS TEST 
8922 071600 -=<.+10>8177770 
8924 071600 T26PACKET: ;COMMAND PACKET FOR TEST 
8925 071600 014004 -WORD 14004 sWRITE CHARACTERISTICS COMMAND, WITH CVC=1, ACK 
8926 071602 071610 -WORD T26DATA ZADDRESS OF CHARACTERISTICS BLOCK 
8927 071604 000000 «WORD O 
8928 071606 000012 -WORD 10. sSTARTING VALUE OF BLOCK SIZE 
8929 071610 T26DATA: ; CHARACTERISTICS DATA BLOCK 
8930 071610 071622 -WORD T26BFR sADDRESS OF MESSAGE BUFFER 
8931 071612 000000 -WORD 0 
8932 071614 000024 eWORD 20. ;LENGTH OF MESSAGE BUFFER 
8933 071616 000000 -WORD 0 
8934 071620 000000 T26DSW: .WORD 0 sSELECT DRIVE 0 
sete 071622 T26BFR: .BLKW 25. sMESSAGE BUFFER 
pat sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
8940 071710 -=<.+10>8177770 
8942 071710 T26PK2: 
8943 071710 100006 -WORD 100006 ;WRITE SUB SYS MEM COMMAND, AND ACK 
4 071712 071730 -WORD T26BF2 ZADDRESS OF SELECT BLOCK DATA 
8945 071714 000000 -WORD 0O 
Bee 071716 000006 -WORD 6. sSIZE OF DATA PACKET 
8951 071720 T26PK3: 
8952 071720 140005 -WORD 140005 sREREAD COMMAND, CVC=1 AND ACK 
8953 071722 T26RB: 
8954 071722 003114 T26WB: .WORD FREE sADDRESS OF WRITE BUFFER 
8955 071724 000000 -WORD 0 
8956 071726 000000 T26SZ: .WORD 0 sSIZE OF BUFFER (EXTENT) 
8957 EVEN 
8958 : 
8959 3 
8960 FY 
8961 071730 T26BF 2: 
8962 071730 010 T26B8S0: .BYTE 10 :BSELO AREA 
8963 071731 200 T268S1: .BYTE 200 *BSEL1 AREA 
8964 071732 000000 T26S2: .WORD 0 sSEL 2 AREA 
Sues 071734 000000 T26S3: .WORD 0 DATA AREA 
8967 3 
8968 EVEN 
4544 sT& MOTION PACKET COMMAND VALUES 
8971 071736 140001 TcoRN: .WORD 140001 ;READ DATA 
8972 071740 141401 -WORD 141401 sREREAD NEXT OPP=0 
8973 071742 161401 eWORD 161401 ZREREAD NEXT OPP=1 
Sore 071744 177777 eWORD 177777 sEND OF DATA 
8976 5 
8977 071746 000000 T26CNT: .WORD 0 ;TAPE RECORD COUNTER STORAGE AREA 
8978 071750 000000 T26CNU: .WORD 0 : TAPE RECORD COUNTER STORAGE AREA 


8979 
on 071752 000000 T26RSZ: .WORD 0 sRECORD STORAGE SIZE AREA 





# | 


TS 
TE 


V7 = HARDWARE TESTS 1-8 
ST 6: REREADS 


8982 071754 060000 T26DLY: .WORD 
eons 26DL 0 0 
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DELAY COUNTER AREA 


SEQ 0322 





| TSV7 = HARDWARE TESTS 1-8 
REREADS 


N 9 
MACRO M1113 25-MAY-82 09:19 PAGE 142 
TEST 6: SEQ 0323 





8985 


071756 
4 


9019 074420 
aoee 074477 


9041 074556 


ee ee ee ee ee ee ee ee ee eee 
NONNNMNINN ONIN ONINNNIN NINN — Nonny nonyngyngny» 
NMNESNMNMNNNEWE SS SNNESNWE SENS NONNENS 


012701 
0 


012702 


kk kk kk kk dd dd td od dd 
SHELLS LNNNNNAWOLNOL LNVOVUN—$—$OONofS 
UM MIMI UII WO WWII IW WN Se NI 


071600 
140004 
071610 


000012 
071622 


000024 


000000 
000030 


3+ 
; LOCAL 


Oe ee a ee ee ee ee ee em ee ee ed ee ed ed ed eed ed 
AALXA S&S SQ QONN YN SHANNA AMNUMONNININNIG 
NSW | —NWUIWW WU WN SOWN SWNWNNWNO 

~ 

nN 

a 

Mm 

Oo 

4 


: .AS 


AnNnnwn [7] AnNNNnNNnUunnnw 

M MOAAAAAAAAAAAAAAAAAAAAAGAAAAAAOAN 
ee eee eee 
NEN NINN ER RE I BBR BR I I I I 


TEXT MESSAGES FOR TEST 


ne e Position Incorrect After REREAD Previous (OPP=1)' 
"REREAD PREVIOUS, At BOT, Failed To Set NEF (xSTO)' 

"TSSR Incorrect After READ DATA Command’ 

"REREAD Previous (Space Reverse, Read Forward) Command Failed’ 
"REREAD Previous (Read Reverse, Space Forward) Command Failed’ 
"POSITION (Space Command) Failed, TSSR Not Correct’ 

"RIB NOT SET AFTER READ REVERSE INTO BOT’ 

*TSSR Not Correct After Illegal Mode Bits Set’ 

"IlLle + Mode Bits, Failed To Set ILC Bit In XSTO* 

"REREAD COMMAND Not Accepted’ 

*TSSR Not Correct After WRITE DATA Command’ 

‘Tape Not At «+ After REWIND ore 

"Data Written To Tape Not Equal To Data ower From Tape‘ 
‘REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT‘ 

*TSSR Not Correct After REREAD C D Reject’ 

"Rewind (POSITION) Command Not Accepted’ 

"RAM Error, Correct Data Pattern Not In Ram’ 

*TSSR Init. Failed After REREAD COMMAND‘ 

"Drive 7 Select Failed To Set ‘OFL'’ In TSSR° 

*TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 
*TSSR Not Correct After REREAD DATA Command’ 

"CVC Set, Didn’'t Reset VCK In Message Buffer’ 

*TSBA Not Correct Raia. s REREAD DATA Command’ 

‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)" 
*Reading Long Record Failed To Set RLL Bit In XSTO’ 

"Reading Long Record Failed To Set RLS Bit In XSTO* 

"Residual Byte Count Incorrect After Short Record Read’ 
Mey Long Record Failed To Give Tape Status Alert’ 

"Data REREAD From Tape Not Correct, After SwB=1' 

eASCIZ ‘Rereads' 


ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


T26REST: 


aH THE REGISTERS 


#T26PACKET,R1 ART OF THE PACKET 
#140004, (Ri)+ [WRITE SUBSYSTEM MEM. WITH ACK, CVC=1 
#T26DATA, (R1)+ *ADDRESS OF pGHARAISTiCs DATA BLOCK 
(Ri) SEXTENDED ADDRESS 

10.,(R1)+ TSIZE OF DATA BLOCK IN BYTES 
areosrR. J (R1)+ TADDRESS OF MESSAGE BUFFER 
#20, (R1)* ZLENGTH OF MESSAGE BUFFER 
3 RD ZSELECT DRIVE ZERO (0) 
#24. ,R2 [NUMBER OF LOCATIONS TO BE CLEARED 


por 





| TSV7 = gor ~~ 1-8 


| TEST 6: REREAD 
9042 074562 
9043 074570 
9046 074600 
9047 


9048 
9049 074602 


9059 074640 
9060 074642 
9061 074644 


9066 664 
9067 074666 
9068 074672 
9069 074674 
074674 
074674 


012762 
2 


177777 071622 64$: 


000000 


071710 
140006 
071730 
000006 


071730 


071720 
000000 
000000 


000000 


T26RT2: 


T26RT3: 


RTS 
ENDTST 
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— 


R2,40 
Gus 


#T26PK2,R1 
#140006, (R1)+ 
nite 6BF2,(R1)+ 
WG. «(RID 
(R1)+ 
#T26BF2,R1 
(R1)+ 

(R1) 

PC 


#T26PK3,R1 
1)+ 


zALL “ iw BUFFER 


sNEXT L 


CHECK FOR END OF LOOP 
KEEP GOING UNTIL DONE 
;RETURN 


sSAVE THE REGISTERS 


START OF THE PAC 


CKET 
i WRITE es teen mote WITH ACK,CVC=1, 


DDRESS 
:SIZE OF DATA BLOCK IN BYTES 
sPOINT TO DATA SEL AREA 


sRETURN 


zSAVE THE REGISTERS 
START OF THE PACKET 
WRITE SUBSYSTEM MEM. WITH ACK, 
ADDRESS OF DATA BLOCK 


TENDED ADDRESS 


sEX 
SIZE OF’ _DATA BLOCK IN BYTES 
; RETURN 


110102: 


SEQ 0324 


“eta: 





TSV7? =_HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 


9071 
9072 
9073 
9074 
9075 
9076 
9077 
9078 
9079 
9080 
9081 
9082 
9083 074676 
074676 
84 074676 
9085 074704 
074710 
9091 074714 
074720 
9093 074724 
9094 074732 
9095 
9096 
9097 
9098 
9099 
9100 
9101 
9702 
9103 
9104 
9105 
9106 
9107 
9108 074736 
9109 074736 
074736 
074736 
9110 074740 
9111 074744 
9112 074750 
9113 074754 
9114 074762 
9115 
9116 
9117 
9118 
9119 
9120 
121 


9 

9122 074766 

9123 074772 

9124 074774 
074 


012737 


005037 


104402 
004737 
004737 
004737 
012737 
005037 


004737 
103426 


012727 


0 
000000 


006446 
003124 


0 
101556 


016064 


000250 
002116 
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¢02170 


002206 


101562 


~SBTTL TEST 7: WRITE DATA RETRY 


THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
sCOMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


THE TEST CONSISTS OF THE FOLLOWING 5 SUBTESTS 


} 


BGNTST 


#EPRT2,EPRTSW 
KTENABLE 


T7:: 
4 ob ay rid omen MESSAGE 
+ TURN OFF KT11 


PC. KTOFF 3 TURN KT11 “BAC K OFF IF THERE 


#T5T271D,RO 


ASCII MESSAGE TO ane TEST 


PC, TSTSETUP [D0 INITIAL TEST 
#5. LOOPCNT :PERFORM 5 ITERATIONS 
T27CNT ZCLEAR TAPE RECORD COUNTER 


:TEST 7, SUBTEST 1 


VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 
sTHE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
s TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF) 


sERROR BIT SET. 


T27LO0P: 
BGNSUB 


SEQ 0325 


y>>>>>>>>>>>> vat SUBTEST >>>>>>>>>>>> 


TRAP 


PC, T27REST SET COMMAND PACKET 


PC,T2 


7RT2- SET UP OTHER COMMAND PACKET 


SET UP OTHER COMMAND PACKET 
SET UP DELAY COUNTER 
CLEAR COUNTER 


FERRARA AEREEERARREEEREREREEREREEREREREREREREREREERREEREREREREKRERE 


ISSUE CONTROLLER “‘SOFT'’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


° 
FERRARA RAREAAEREREAREEEEREEEAEEREREEEREEREREEREEEEEREEEEEEEEKEERE 


10$: 


JSR 
BCS 
DELAY 





PC,SOFINIT H+ tt ahs ON CONTROLLER 
20$ R IF INIT WAS OK 
250 DELAY ABOUT .25 SEC 


«WORD 


C$B8SUB 


#250, (PC)+ 
LSDLY, (PC)+ 
0 


= ee 


| TEST 





ITE 
075010 


075 
9133 075050 
9134 075056 


9158 075110 


DATA RETR 
065367 
5 


012704 


004737 


010001 
104456 


012124 
104406 


reifid 


00s037 
104456 


012136 
104406 


TSV7 =_HARDWARE TESTS ay 
7: WR 


177772 
177756 
101562 
002212 


010752 
002212 


011104 


002212 
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101430 


20$: 


D 10 
1431 


DEC T27DLY 

BNE 10$ 

INC FATFLG 

MOV RO,R1 

ERRDF ERRNO,SFIERR,SFIMSG 
MOV UNITN, T27DSW 

MOV #T27PACKET,R4 


:BUMP COUNTER 
:BR, IF COUNTER NOT DONE 
COUNT 


ZCONTENTS OF TSSR REGISTER 
FATAL ERROR TSSR WAS NOT OK 


SET UP DRIVE 


NUMBER 
; SUBROUTINE NEEDS PACKET ADDRESS 


FERRARA ERAREERERERERERRERKEREREREEERREREREREEREREREREEEKEE 


WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


° 
SERRA AEERAEERRERERERERERERRAEERERREREREREREREERERERAEERRRKKEEE 


25$: 


JSR PC,WRICHR 

BCS 25$ 

INC FATFLG 
OV 


M RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 


CKLOOP 


oe WRITE CHARACTERISTICS 
R, IF COMMAND ISSUED OK 
COUNT 


SAVE CONTENTS OF TSSR 
SWRITE CHARACTERISTISC ‘oy 


TGORD 


LOOP IF SELECTED 
TRAP 


FRAAAAAAEERERAREREEEEEEEREERERAERAEERERERAREREAEREARRERREEERERERKERERE 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


° 
FARA AREAEEEEAREAREREERERERERREREEREAREEEERERRRERERREREREKEKKEKERE 


30$: 


JSR PC REWIND 
BCS 308 
MOY 


IN 
ERRHRD ERRNO’ OT 27RWN, PKTSSR 


CKLOOP 


7CALL ae a be hy COMMAND 
BR, IF NO PROBLEM 
SET UP REUIND PACKET ADDRESS 


BUMP C 

REWIND NOT ACCEPTED 
«WORD 
«WORD 
«WORD 


TRAP 


LOOP IF SELECTED 


SERA AAEEERERAEAAEEEREAREEAAREREEAEERERERERERREEEEEEEREEREEERERE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


. 
FARA ARAERAAAEEAEEEEREAAAEAEEAEAAEEEREREEREREEERERAEEREEREEEEEE 


-6(PC) 
=22(PC) 


CSERDF 
701 


SFIERR 
SF IMSG 


CSERHRD 
702 


WRTMSG 
SF IMSG 


CSCLP1 


CSERHRD 
703. —ss 
T27RWN 
PKTSSR 


| 

SEQ 0326 | 

| 

CSCLP1 


poe 





9173 
9174 075136 


9183 075160 
5160 

075162 
075164 
075166 

9184 075170 
075170 


9185 075172 
at 075200 


DATA RETRY 


012737 


012136 
104406 


013701 


001406 
005237 


015564 


| TSV7 =_HARDWARE TESTS 1-8 
TEST 7: WRITE 


101440 
000002 


002212 


000400 
003114 


141005 
30 


100206 


002212 


101440 
002000 


002212 


E 10 
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101530 





ERRHRD 


40$: 


MOV 
MOV 


CKLOOP 


T27BFR+6,R1 
#BIT1,R2 
R1,R2 


FATFLG 
ERRNO, T27B0T ,EXPREC 


#256. ,T27S2 
FREE 


12708 


sPICK UP _XSTO 

:SET UP_EXPECTED 

SET BOT BIT IN whedon 
DOES EXP = REC'D 

sBR, IF EQUAL (OK) 


[TAPE NOT AT BOT AFTER REWIND 


TRAP CSERHRD 
-WORD 704 
-WORD 127B0T 
«WORD EXPREC 


LOOP IF SELECTED 


TRAP CSCLP1 
SET UP RECORD SIZE 
sADDRESS OF WRITE BUFFER 


FERRARA AAAEEAEERAEEEEEEREEERERHEEEREEEREEREEREERERREEEEEEEEEREEEEERE 


WRITE DATA RETRY,ACK,CVC=1 COMMAND 


. 
° 
PARAAAAAEEEAEEEEAREEREREEEREREREREREERERAERERERRERRERREREEEREREKEKEREE 


75$: CKLOOP 


or3 1008. T27PK3 
#T27PK3,R4 


R4, TSDB(RS) 
PC ,WAITF 


TSSR 


75$ 


FATFLG 
ERRHRD ERRNO, T27WDE,PKTSSR 


(R5) ,R1 
#SSRISCIBITT 181T2,R2 
R1,R2 


sWRITE DATA RETRY,ACK,CVC=1 COMMAND 
SET UP _R4 WITH PACKET ADDRESS 

2 ISSUE COMMAND 

WAIT _FOR SSR TO SET 

GET TSSR CONTENTS 

:SET UP EXPECTED 

ZARE od Maes 


FARAAAARAEAEERERAEAAREEREREEEERARAAERAREREREREEREREEERERERERERKKKEEERE 


:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


jHANANAN AREA RARER RRHERETEHERERERERENeNenenenennnnanenenenenesenens 


T27BFR+6,R1 
#BiT10,R2 
R1,R2 


FATFLG 
ERRHRD ERRNO, T27NEF ,EXPREC 


:BR, IF 

78 COUNT 

3TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 705 
«WORD T27WDE 
WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CS$CLP1 

3GET 3 STATUS WORD 

[SET UP EXPECTED 

3SET THE ENEE BIT 

sARE THEY EQUAL 

t+ ‘ ir EQUAL (GOOD) 

[NEF SHOULD BE SET 
TRAP CSERHRD 
-WORD 706 
-WORD T27NEF 
eWORD EXPREC 


SEQ 0327 


-————— 


-_—— _—-- —— -—- 
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TEST 7: WRITE DATA RETRY 
9225 075314 170$: CKLOOP 
075314 104406 
9226 075316 ENDSUB 
075316 
075316 104403 
9227 075320 023727 002212 000017 CMP FATFLG,#15. 
9228 075326 10340 BLO 999$ 
9229 075330 004737 017272 JSR PC ,CKDROP 


9230 075334 


999$: 


TRAP 


L10123: 
TRAP 
one ERROR COUNT AT 25 
IF LESS THAN 25 
eay TO DROP THE UNIT 


CSCLP1 


C$ESUB 


SEQ 0328 


| TSV7 =_HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 


075374 
9264 075376 
3502 075404 


075432 
9281 075434 
075434 


9282 
9283 





104402 


004737 


004737 
103407 
005237 
010001 
104455 


bf 
103407 

005237 

010001 


104456 


012124 
104406 


104534 
104626 
104670 


016064 
002212 


010752 
002212 
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-+ 


:TEST 7, SUBTEST 2 


SEQ 0329 


(re HE 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
"TRAP ss C$BSUB 
JSR PC, T27REST 3SET COMMAND PACKET 
JSR PC,T27RT2 SET UP OTHER COMMAND PACKET 
JSR PC, T27RT3 ;SET UP OTHER COMMAND PACKET 
FRRAAAAAERAARERAAREREAEEREREREREERRERRERERREREERERRERERERREEEERREREE 
+ ISSUE CONTROLLER ‘’SOFT'’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
I TIITLILILITILTLE LETT LITT LELT TTT TT TTT TTT TTT TTT 
JSR PC, SOF INIT :D0 INITIALIZE ON CONTROLLER 
BCS 20$ sBR IF INIT WAS OK 
INC FATFLG 78 COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
eWORD 707 
- WORD SFIERR 
- WORD SF IMSG 
101430 20$: MOV UNITN, T27DSW ;SET UP DRIVE NUMBER 
MOV #T27PACKET, RG ;SUBROUTINE NEEDS PACKET ADDRESS 


SERAAAAAAAAAAAAAAEREREERERERAAAEAAAEERAEREAREAEERRAEREEERRERREREEREEE 


WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


6 
J RAEAARARAAAEEAAAAEAREEAEEEEERAEAERAREAREEARAEREREERAEREEREREKEREEEEEE 


JSR PC WRTCHR ZISSUE WRITE CHARACTERISTICS 

BCS 258 :BR. IF COMMAND ISSUED Ok 

INC FATFLG 

MOV RO,R1 [SAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
TEORD 
WORD 

25$:  CKLOOP :LOOP IF SELECTED 

TRAP 


SRAAAAAAAAAAAAARAAEEAAAAETEAEAAARERERAAERAEREEREREREARERRERREREEEEERE 


CSERHRD 
708 


WRTMSG 
SF IMSG 


CSCLP1 
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TSV7? =_HARDW/RE TESTS 1-8 MACRO M1113 25=MAY-82 09:19 PAGE 144-1 
TEST 7: WRITE DATA RETRY 


cane 075474 


075560 
3 


9334 5 
9338 or 360s 
075602 


aE Le 


012136 
104406 


004737 
103411 
016501 
010004 
005237 
104456 


011104 


000002 
002212 


000400 
003114 


140005 
0 


0 
000200 


002212 


011104 
000002 
002212 


101532 


101530 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


a 
FAAAAAAAAAAAAAAAAAAAAREREEARERAAAEAREREERERAEEAREAAEEEREREREEEEEEEES 


JSR PC REWIND 
BCS 26$ 
MOV 


RO,R4 
MOV TSSR(RS),R1 
INC FATFLG 
ERRHRD ERRNO, T27RWN,PKTSSR 


26$: CKLOOP 


MOV #256. .R3 
MOV FREE ,127WB 


CALL TAPE REWIND COMMAND 
BR, IF NO PROBLEM 

SET UP REWIND PACKET ADDRESS 
3GET TSSR CONTENTS 


COUNT 
TREWIND NOT ACCEPTED 


CSERHRD 
-WORD 709 
-WORD T27RWN 
«WORD PKTSSR 
LOOP IF SELECTED 
CSCLP1 


TRA 
STARTING RECORD SITE 
STARTING WRITE BUFFER ADDRESS 


SAARAAAAAAEAAERRERAERERERERERERRERARRERAERERAREREREREREERRERRERERKEEE 


[WRITE DATA,CVC=1,ACK COMMAND 


e 
FARRAR AAAAEERAEARERAEEEAEEERERAEEERAAEREAERAEERREAEEREREEEREEEEREREEREE 


MOV #140005, T27PK3 
#T27PK3_RG 
MOV R3, 12752 
MOV Ra, TSDB(RS) 
MOV TSSR(R5),R1 
MOV #SSR,R2 
R1,R2 
BEQ 28$ 


INC FATFLG 
ERRHRD ERRNO,WRTERR,PKTSSR 


28$: CKLOOP 


WRITE DATA,CVC=1,ACK COMMAND 
7SET UP R4 WITH PACKET ADDRESS 
SET UP RECORD SIZE IN PACKET 
71S COMMAND 


S 
:WAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
[SET UP EXPECTED 
sARE THEY EQUAL 
sBR, IF OK 


: COUNT 
:TSSR INCORRECT AFTER — 


CSERHRD 
-WORD 710 
«WORD WRTERR 
«WORD PKTSSR 


LOOP IF SELECTED 
TRAP CSCLP1 


FARRAR AAAEREEAERERAEREEEEREREERARERARARAERAEREREREERERERERERERREEKEREE 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


: 
J AAAAAAAAAERERAEAEREREEEERERAEREREREREEARERARAEREREREEAEEERERERERERE 


JSR PC REWIND 
BCS 
MOV TSSR(R5) ,R1 


INC FATFLG 
ERRHRD ERRNO, T27RWN,PKTSSR 





sCALL TAPE ey COMMAND 
;BR, IF NO P es a 


I 
GET TSSR CONTENTS 
SET UP aeviN® PACKET ADDRESS 


BUMP C 
REWIND NOT ACCEPTED 
TRAP CSERHRD 


SEQ 0330 





TEST 


WRITE 
075604 
075 


075610 
9339 075612 
075612 


9347 075614 


9 
9367 075654 
9368 


075 
9377 075710 
075710 


9386 075712 
9387 075716 


TSv7 + “pe antte eat TESTS 1 


06130 
102735 
012136 
104406 


013701 


015564 
104406 


-8 
DATA RETRY 


101440 
000002 


002212 


00000 
010556 


000002 
000200 


002212 


1 
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30$: 


CKLOOP 


I 10 
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«WORD 711 

-WORD T27RWN 

«WORD PKTSSR 
LOOP IF SELECTED 

TRAP CSCLP1 


FEAR AARAARAAERAEEREREEAREAEAERERERARERRERERRERARREREREEREEKEREEEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
FERRARA AEAAAEERERAAEEREEREAERERARAERERERARAERERERERERERRERAERKEKKEKKKREE 


40$: 


CKLOOP 


a R1 


R1, 
wait oR2 
1,R2. 


FATFLG 
ERRHRD ERRNO, T27B0T ,EXPREC 


sPICK UP XSTO 
3SET UP_EXPECTED 
3SET BOT BIT IN  heines 
os EXP = REC‘D 
R, y EQUAL (OK) 


sume NOT AT GOT AFTER REWIND 


TRAP CSERHRD 
«WORD 712 
«WORD 12780T 
«WORD EXPREC 


LOOP IF SELECTED 
TRAP CSCLP1 


aaa aaa aia eae 


ISSUE SPACE RECORDS COMMAND = VALUE a R3 sete NUMBER OF RECORDS 


:B1T 15 SETS DIRECTION = O=FORWARD 


T=REVER 


 esneadetsleneeainicmeebiainintelnabeinainbniadtiiinainaeiabndainaiatiantententemaiiianiianies 


50$: 


CKLOOP 


#1,R3 

PC, SPACE 
TSSR(R5),R1 
#SSR,R2 


FATFLG 
ERRHRD ERRNO, T27SCF PKTSSR 


PARAMETER SPACE FORWARD 1 RECORD 
2 CALL gyn S ROUTINE 


BR, IF 

GET TSSR CONTENTS 

3SET UP EXPECTED 

3SET > PACKET ADDRESS 


:BUMP C 
sSPACE RECORDS COMMAND FAILED 
TRAP 


CSERHRD 
-WORD 713 
-WORD T27SCF 
-WORD PKTSSR 


LOOP IF SELECTED 
TRAP CSCLP1 


aaa ata alata aaa 


ISSUE SPACE RECORDS COMMAND = VALUE 7 R3 sets NUMBER OF RECORDS 


3B1T 15 SETS DIRECTION = O=FORWARD 


1=REVER 


scien ntcianecathleiriaditanmaininaaia 


MOV 
JSR 


#100001, “*3 
PC, SPACE 


sPARAMETER SPACE REVERSE 1 RECORD 
sCALL SPACE RECORDS ROUTINE 


SEQ 0331 


T 
T 


EST 


SV7 - er tiwe ATA el 
7: WR 


ITE D 


9388 075722 
9389 075724 
9390 730 


9392 075736 
9396 orks 


075750 
9397 075752 
075752 


9398 075754 


94 


09 
10 


wnN—wr Ww 


o— 

_ 

~ 
NS SWS 
SS 
~N Anno NV 


oooo 
oo 


Es 
dc 


ooo 

Woo 

ON 
“N 
So 
Nm 


015564 
104406 


104403 


A RETRY 


000002 
000200 


002212 


003114 


141005 


100204 


002212 


101446 
000001 


002212 


002212 
017272 
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101532 


000017 


60$: 


ERRHRD 


CKLOOP 
MOV 


60$ 
TSSR(RS) ,R1 
#SSR,R2 
RO,R4 


FATFLG 
ERRNO, T27SCF ,PKTSSR 


FREE, 1T27RB 


2BR, IF NO ERRORS 

GET TSSR CONTENTS 

zSET UP EXPECTED 

:SET UP REWIND PACKET ADDRESS 


SPACE RECORDS COMMAND FAILED 
TRAP 


CSERHRD 
«WORD 714 
WORD T27SCF 
-WORD PKTSSR 
LOOP IF SELECTED 
TRAP CSCLP1 


sADDRESS OF BUFFER 


FTAA AAAAAEAAERERAARARRERERERAEERAERAEEEREREARERRERREEEREREEREEREEREREE 


WRITE DATA RETRY,ACK,CVC=1 COMMAND 


° 
FEAAAAAAAAAEAREREAEAREREEREEEEERRAERERRAERREREEREREEREREREREEEEEERREE 


180$: 


190$: 


999$: 


MOV 
MOV 


ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 
ENDSUB 


#141005, T27PK3 
g 5p leSZ 
#T27P PK3,R 


Ra, TSpBiRS) 
TSSR(RS) RI 
#SSR!SC!BIT2,R2 
R1,R2 


FATFLG 
ERRNO, T27TSA,PKTSSR 


T27BFR+14,R1 

R1.R 

#BiTO,R2 

R1,R2 

190$ 

FATFLG 

ERRNO, T27NEF ,EXPREC 


FATFLG,#15. 
PC, CKDROP 


WRITE DATA RETRY, ie ad CVC=1 COMMAND 
;SET UP THE SIZE OF RECORD 
iSET T con WITH PACKET ADDRESS 


; ISSUE 
sWAIT_FOR SSR TO SET 


3:GET TSSR CONTENTS 

SET UP EXPECTED TAPE STATUS ALERT 

ARE ner EQUAL 

BUMP COUNT 

:TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
«WORD 715 
«WORD T27TSA 
-WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

3GET rig STATUS WORD 

7SET UP EXPECTED 

SET THE RIB BIT 

ARE THEY EQUAL 

:BR. IF EQUAL (GOOD) 

UMP 

iNEF SHOULD BE SET 
TRAP CSERHRD 
-WORD 716 
eWORD T27NEF 
-WORD EXPREC 
TRAP CSCLP1 

3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10124: 
CSESUB 


TRAP 
OR COUNT AT 25 
LESS THAN 25 
DROP THE UNIT 


z1S ERR 
:BR. IF 
zTRY TO 


SEQ 0332 


po 


_‘Isv7 =_HARDWARE TESTS 1-8 
| TEST 7: WRITE DATA RETRY 


9 
9450 076116 


ott 076130 004737 


0 
9461 076134 004737 


bon 34 076146 010001 
076150 104455 


076204 0 
9485 076206 
076206 104456 
076210 001316 
076212 005054 
076214 012124 
9486 076216 


076216 104406 





104534 
104626 
104670 


016064 
002212 


010752 
002212 
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SEQ 0333 
3¢ 
:TEST 7, SUBTEST 3 
[VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SwB=0 
s TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE 
7 (THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS 
7BYTE COUNTS AND DATA PATTERNS ARE USED. 
™ BGNSUB y>>>>>>>>>>>> eo >>>>>>>>>>>> 
"TRAP ss C$BSUB 
JSR PC, T27REST zSET COMMAND PACKET 
JSR PC,T27RT2 3SET UP OTHER COMMAND PACKET 
JSR PC,T27RTS 3SET UP OTHER COMMAND PACKET 
FERRARA AAAAEEEREREEEREEREEEERARARARERARARRERRAEREREREREREREREEEERKEE 
TISSUE CONTROLLER "‘SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
TTT TITITTILL TITLE LELETE LETTE ELE T TTT TTT TTT TTT TTT 
JSR PC, SOF INIT 3D0 INITIALIZE ON CONTROLLER 
BCS 20$ 7BR IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 :CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG ZFATAL ERROR TSSR WAS NOT OK 
TRAP  CSERDF 
«WORD 717 
-WORD SFIERR 
SF IMSG 
101430 20$: MOV UNITN, T27D0SW :SET UP UNIT NUMBER IN PACKET 
MOV #T27PACKET ,R4 SUBROUTINE NEEDS PACKET ADDRESS 
SAAAAAAAAAAAEAAEAAEAEEAEAREEEAEAEAAEERARERRAREREREREREREERARREREREEEEEKEEE 
[WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
TTTITITILTTITITILE LETT TT LETTE TTT TTT TTT TTT TT TTT TTT TTT 
JSR PC ,WRTCHR ZISSUE WRITE CHARACTERISTICS 
BCS 23$ [BR, IF COMMAND ISSUED OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 zSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
CSERHRD 
TeORD 718 
-WORD WRTMSG 


«WORD SFIMSG 
TRAP CSCLP1 


238: CKLOOP sLOOP IF SELECTED 


——_— 


TSV7 =_HARDWARE TESTS 1-8 


TEST 





09 
9510 076246 


076276 
9520 076300 
076300 
9521 076302 
9522 076306 
9523 
9524 
9525 
9526 
9527 
9528 
9529 


9541 364 
9545 076370 


004737 
4 


005237 


012136 
104406 


013701 


104456 
001320 
102431 
015564 


04406 


1 
012703 
013737 


005237 


7: WRITE DATA RETRY 


011104 


002212 


101440 
000002 


002212 


000024 
003114 


140005 
101530 


017512 


000200 


002212 
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101532 


101530 


: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
° 
fF RARAAEAAAERAREEEAARAEAEAEEEAERERERERERERREEERERARREREEEEEREREEREETE 


JSR PC REWIND sCALL gt ad ay COMMAND 

BCS 30$ ‘BR, IF NO PROBLEM 

MOV RO, Ra :SEf UP REWIND PACKET ADDRESS 
INC COUNT 


ERRHRD ERRNO’ T27RWN,PKTSSR REWIND NOT ACCEPTED 
P CSERHRD 
719 
«WORD T27RWN 
«WORD PKTSSR 
TRAP CSCLP1 
ITIP ITIP i titi titi tii titiiiitittitititt) 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
FERRARA AARARAAAREREREREERREREREREERERREEERARERERRAERREEEEEREREREEREREEE 


30$: CKLOOP LOOP IF SELECTED 


MOV T27BFR+6,R1 :PICK UP XSTO 
MOV R1,R2 :SET UP EXPECTED 
BIS #BIT1,R2 [SET BOT BIT IN EXPECTED 
CMP R1,R2 [DOES EXP = REC'D 
BEQ 40$ BR, IF EQUAL (OK) 
INC FATFLG :B T 
ERRHRD ERRNO, T27BOT, EXPREC [TAPE NOT AT BOT AFTER REWIND 
TRAP  CSERHRD 
«WORD 720 
“WORD 127B0T 
“WORD EXPREC 
40$:  CKLOOP :LOOP IF SELECTED 
CSCLP1 
MOV #20. ,R3 ZSTARTING RECORD SIZE 
MOV FREE, 127WB TSTARTING WRITE BUFFER ADDRESS 
FERRARA AEREEEEEAREREERERAEREERARAEEREERERREEEEREREREEEREEREREEREEEE 
[WRITE DATA, CVC=1,ACK COMMAND 
TTTITITT TIT TTTTET TET T TTT TTT TET TTT TTT TTT TTT TTT TTT 
65$: MOV #140005, 127PK3 ZWRITE DATA,CVC=1,ACK COMMAND 
MOV #T27PK3_R4 ‘SET UP R4 WITH PACKET ADDRESS 
MOV R3,RO iSeT PATTERN IN CORRECT REGISTER 
JSR PC.FILLMEM ILL MEMORY WITH RECORD SIZE 
MOV R3.127S2 Set UP RECORD SIZE IN PACKET 
MOV R4.TSDB(RS) — COMMAN 
JSR PC: WAITF “WAIT FOR SSR TO SET 
MOV TSSR(RS) RI :GET TSSR CONTENTS 
MOV #SSR,R2 [SET UP EXPECTED 
CMP R1,R2 TARE THEY EQUAL 
BEQ 80$ BR, IF OK 


FATFLG 2BUMP COUNT 
ERRHRD ERRNO,WRTERR,PKTSSR STSSR INCORRECT AFTER WRITE DATA 


SEQ 0334 


M10 
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TEST 7: WRITE DATA RETRY SEQ 0335 
076370 104456 TRAP CSERHRD 
076372 001321 «WORD 721 
076374 005111 «WORD WRTERR 
076376 012136 ~WORD PKTSSR 

9546 076400 80$: CKLOOP ;LOOP IF SELECTED 

9567 076400 104406 TRAP CS$CLP1 

9548 FERRARA ARAAERERERERRRERERERREREREREREEEEEREREAEERRERERERERERERE KEES 

9549 : 

3330 sWRITE DATA RETRY,CVC=1,ACK COMMAND 

9552 ITT ITITILILILILE ELITE LETTE LETT T TTT TTT TTT TTT Te 

9553 

9554 076402 012737 141005 101530 MOV #141005, T27PK3 sWRITE DATA RETRY,CVC=1,ACK COMMAND 

9555 076410 010465 000000 MOV R4,TSDB(RS) Zs ISSUE C 

9556 076414 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 

9557 076420 016501 000002 MOV TSSR(RS),R1 GET TSSR CONTENTS 

9558 076424 012702 000200 MOV #SSR,R2 sSET UP EXPECTED 

9559 076430 020102 CMP R1,Re TARE THEY EQUAL 

9560 076432 001406 BEQ 90$ BR, IF 0 

9561 076434 005237 002212 INC FATFLG ;BUMP COUNT 

9565 076440 ERRHRD ERRNO, T27WRF ,PKTSSR :TSSR INCORRECT AFTER WRITE DATA RETRY 
076440 104456 TRAP CSERHRD 
076442 007322 -WORD 722 
076444 104336 eWORD T27WRF 
076446 012136 eWORD PKTSSR 

9566 Lh of 90$: CKLOOP ;LOOP IF SELECTED 
076450 104406 TRAP CSCLP1 

9567 ar eeee 005723 TST (R3)+ sBUMP RECORD SIZE COUNTER 

9568 076454 020327 000050 CMP R3,440. zAT 40 SIZE YET 

9569 076460 001315 BNE 65$ :BR, IF MORE RECORDS TO WRITE 

9571 FREE AEAREARERERRRERREREREERERREEERERAEREREREREREEREREREERERE KKK 

9572 3 

cle | : ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

9575 PT TTITTTTLELELELE LETT TE TTT TTT TTT TTT TTT TTT TTT 

9576 

9577 076462 004737 011104 JSR PC REWIND 2 CALL TAPE ae my COMMAND 

9578 076466 103407 BCS 230$ IF NO PROBLEM 

9579 076470 010001 MOV RO,R1 3 SAVE TSSR 

9580 076472 005237 002212 INC FATFLG COUNT 

9584 076476 ERRHRD ERRNO, T27RWN,EXPREC REWIND NOT ACCEPTED 
076476 104456 TRAP CSERHRD 
076500 001323 eWORD 7235 
076502 102735 -WORD T27RWN 
076504 015564 «WORD EXPREC 

9585 076506 230$: CKLOOP ;LOOP IF SELECTED 

95 076506 104406 TRAP CSCLP1 

9587 PAAR AERERAERAAAEEAAEREREERARRAERARREREERAEREREEREEREREERREEEERERE 

95 : 

e544 READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 

9591 PTITITITITLISTLELE ELITE LETTE LTTE TTT TTT TTT TTT TT TTT TTT TTTTTTe 

95 


92 
9593 076510 013701 101440 MOV T27BFR+6,R1 :PICK UP XSTO 





TEST 





TSV7 ; “peice pat TESTS 1-8 


WRITE 
9594 076514 


DATA RETRY 
O1910¢ 


013737 


012737 


005237 
104456 


020403 


000002 


002212 


000024 
003114 


100001 
0 


000200 


002212 


003114 
000024 


002212 


N 
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101532 


101530 


2408: 


ERRHRD 


CKLOOP 


MOV 
MOV 


R2 


Ri, 
#B1T1,R2 
R1,R2- 


FATFLG 
ERRNO, T27B0T ,EXPREC 


#20. ,R3 
FREE, T27RB 


SET UP EXPECTED 
SET BOT BIT IN hie 
;DOES EXP = REC* 
TBR, IF EQUAL (OK) 
UMP 


38 COUN 
: TAPE NOT AT BOT AFTER REWIND 
TRAP 


- WORD 
«WORD 
- WORD 


TRAP 


;LOOP IF SELECTED 


STARTING RECORD SIZE 
STARTING READ BUFFER ADDRESS 


FERRARA RREEEEEAERAREEREREERERERERREERERERRERREEERERREREE 


[READ DATA,ACK COMMAND 


: 
FARRAR EREERARAEEREEEREEREREKEAEREREERREKERRERKEAEKEEEKRRERERERRERERRERREE 


265$: 


280$: 


285$: 


290$: 


INC 
ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 


TST 
SUB 
CMP 





#100001 , T27PK3 
#T27PK3,R4 


RS 1278! [SET UP RECORD SIZE IN PACKET 
Ra, TSDB(RS) i ISSUE COMMAN 
WAIT FOR SSR TO SET 
TSéntrs), R1 ‘GET TSSR CONTENTS 
#SSR R2 [SET UP EXPECTED 
»Re TARE THEY EQUAL 
oB6s ‘BR, IF OK 
FATFLG [BUMP COUNT 
ERRNO, RDERR,PKTSSR !TSSR INCORRECT AFTER READ DATA 
WORD 
WORD 
WORD 
:LOOP IF SELECTED 
TRAP 
FREE ,R2 GET BUFFER ADDRESS 
3.RG :GET RECOR 
#20. ,R4 POINT BACK TO 1ST RECORD 
R2,R4 “POINT TO 1ST LOC IN BUFFER 
(R4) ,R3 ‘DATA WRITTEN = READ 
90$ ‘BR, IF DATA OK (GOOD) 
(R4),R1 :PICK UP BAD D 
3,R2 :SET UP EXPECTED 
LG [BUMP COUNT 


FATF 
ERRNO, T27DTA, EXPREC 


e 


(R4)+ 


READ DATA,ACK COMMAND 
SET UP R4 WITH PACKET ADDRESS 


OUN 
DATA IN BUFFER NOT CORRECT 
TRAP 


«WORD 
«WORD 
«WORD 


;LOOP IF SELECTED 


BUMP TO NEXT ADDRESS 
:BACK TO RECORD SIZE 
zAT END OF RECORD YET 


CSERHRD 
724 


T27B80T 
EXPREC 


CSCLP1 


CSERHRD 
725 


RDERR 
PKTSSR 


CSCLP1 


CSERHRD 
7 


26 
T27DTA 
EXPREC 


CSCLP1 


SEQ 0336 
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TEST 7: WRITE DATA RETRY SEG 0337 
9645 076706 0061360 BNE 285$ 37BR, IF MORE we TO CHECK 
9646 076710 005723 TST (R3)+ :BuhP RECORD SIZE 
9647 076712 020327 000050 CMP R3,440. DONE YET 
9648 076716 001317 BNE 265$ [BR, IF NOT DONE YET (MORE READS) 
9649 076720 300$: CKLOOP ‘LOOP IF SELECTED 
076720 104406 TRAP C$CLP1 
9650 076722 330$: 
9651 076722 ENDSUB j>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
076722 L10125: 
076722 104403 TRAP CSESUB 
9652 076724 023727 002212 000017 CMP FATFLG,#15. 1S ERROR COUNT AT 25 
9653 076732 103402 BLO 999$ :BR, IF LESS THAN 25 


9654 076734 004737 017272 JSR PC ,CKDROP TRY TO DROP THE UNIT 
9655 076740 999$: 





SV? =_HARDWARE TESTS 1 


| TEST 7: WRITE DATA RETRY 


9669 076740 


pete 076756 


0 
9681 076764 
9682 


O770se 


00 
9701 077060 
9702 077064 





012737 


004737 
103426 


012727 
000000 


012704 


004737 
103407 


016064 


000250 
002116 
177772 
177756 
101562 
002212 


002172 
101410 


010752 
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101562 


101430 


SEQ 0338 
3 
TEST 7, SUBTEST 4 
; VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SwW8=1 
ZS TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE 
+ (THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS 
‘BYTE COUNTS AND DATA PATTERNS ARE USED. 
BGNSUB y>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
TRAP C$B8SUB 
JSR PC, T27REST 7SET COMMAND PACKET 
JSR PC, T27RT2 ;SET UP OTHER COMMAND PACKET 
JSR C,T27RT3S 3SET UP OTHER COMMAND PACKET 
MOV #65000. ,T27DLY 7SET UP DELAY COUNTER 
FRRARAARAARAAEAAEREREEREEEEEREREARERAAEEERERRERRERREREREEEEEREEREREE 
zs ISSUE CONTROLLER ‘’SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
TTTTITITILITITILE LETT TERETE LET TTT TTT TTT TTT TTT TTT 
10$: JSR PC,SOFINIT 300 seer ame zs “a CONTROLLER 
BCS 20$ [BR IF INIT WAS OK 
DELAY 250 ;DELAY ABOUT” 35 SEC 
MOV #250, (PC)+ 
- WORD 
MOV LSDLY, (PC)+ 
WORD 
DEC -6(PC) 
BNE 74 
DEC =-22(PC) 
BNE -- 
DEC T27DLY ;BUMP COUNTER 
BNE 10$ :BR. IF COUNTER NOT DONE 
INC FATFLG COUNT 
MOV RO,R1 : CONTENTS OF TSSR REGISTER 
ERRDF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
eWORD 727 
-WORD SFIERR 
eWORD SFIMSG 
20$: MOV UNITN, T27DSW 7SET UP UNIT (DRIVE) NUMBER 
MOV #T27PACKET, R4 : SUBROUTINE NEEDS PACKET ADDRESS 


ITIP Titi iit titi titi iiitititiiititititititit 
WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


. 
FEAR EEAAEEREAAEERAEREREEAERARAEARAERERAEEEEEAEEEAERREEEEEEEEEREEE 


JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
BCS 23$ :BR, IF COMMAND ISSUED OK 


TSV7 =_HARDWARE TESTS 1-8 
DATA RETRY 


TEST 7: WRITE 
9703 077066 


9707 077072 
9708 077074 


9743 077162 
7162 


77164 

7166 

077170 

9744 077172 
077172 

9745 077174 
Lg 077200 


005237 
010001 
104456 
001330 
005054 
012124 
104406 


erect, 


4 
005237 
104456 


012136 
104406 


013701 


002212 


011104 
000002 
002212 


101440 
000002 


002212 


000024 
003114 
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101532 


INC FATFLG 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 


23$: CKLOOP 


BUMP COUNT 
sSAVE_ CONTENTS OF TSSR 
[WRITE CHARACTERISTISC ooo y 


LOOP IF SELECTED 


J RAAARAAEAAEAAARAARERAEEEERERAEARRAAREREEREREREREERERRRERERERERERRKERE 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
FERRARA RAREEAREAREREEERERRAREAERRARREERARRERERERRRREREEERREREREE 


30$: CKLOOP 


JSR 43 REWIND 
MOV TSSR(R5) ,R1 
RO,R4 


FATFLG 
ERRHRD ERRNO, T27RWN,PKTSSR 


zCALL TAPE REWIND COMMAND 
BR, IF NO PROBLEM 

GET TSSR CONTENTS 

3GET 43! ADDRESS 


BUMP COUN 
REWIND NOT ACCEPTED 


LOOP IF SELECTED 
TRAP 


J AARARAAEAAAARERERERAEREREREERARRERERERERERERRRREREERRERREREREKEKREE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
J ARERAAARAAEAAEAARAREREREEAEREEREAAAERAARRERERRERARERERAREREREEREKEKERE 


i A RI 


MOV 
MOV 

BIS #81T1,R2 
CMP R1,R2° 
BEQ 40$ 


INC 
ERRHRD 


40$: CKLOOP 


FATFLG 
ERRNO, T27B0T ,EXPREC 


MOV #20. ,R3 
MOV FREE, T27WB 


PRRAARAAAAAREEAAEEAEEREEAEEAEAERAAAEAERAEEREERAEEREREERERREREEKEREREREE 


[WRITE DATA,CVC=1,ACK COMMAND 


sPICK UP xsTO 

SET UP_EXPECTED 

SET BOT BIT IN EXPECTED 
;DOES EXP = REC'D 

3BR, IF EQUAL (OK) 

BUMP COUNT 


[TAPE NOT AT BOT AFTER REWIND 


:LOOP IF SELECTED 
STARTING RECORD SIZ 


TRAP 


E 
zSTARTING WRITE BUFFER ADDRESS 


° 
PPAR AAAAAEAAAEAEREREAAREARAAAEEAAAAEAAAEAAEEREAREREEEAEREKEEEEREEEESE 





SEQ 0339 


CSERHRD 
728 


WRTMSG 
SF IMSG 


CSCLP1 


CSERHRD 
729 


T27RWN 
PKTSSR 


CSCLP1 


CSERHRD 
730 


T27B80T 
EXPREC 


CSCLP1 


es a 


9754 077206 
9755 077214 


9769 077262 
7262 

077264 

7266 


077270 
9770 077272 
077272 


07734 

7342 

9791 077344 

9792 077346 

9793 077352 
9794 
9795 
9796 
9797 
9798 
9799 
800 


9 

9801 077354 
9802 077360 
9803 077362 
9804 077366 
9805 077370 
9809 077374 





| SV7 = atte D 3 i me 
TEST 7: WRITE D 


012737 
010465 


001315 


004737 


140005 
101530 


017512 


000200 


002212 


111005 
0 


002212 


000050 


011104 
000002 
002212 
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101530 


101530 


65$: MOV #140005, 127PK3 ZWRITE DATA,CVC=1,ACK COMMAND 
MOV #T27PK3_RG ‘SET UP R4 WITH PACKET ADDRESS 
MOV R3,R [SET PATTERN IN CORRECT REGISTER 
JSR PC. FILLMEM [FILL MEMORY WITH RECORD SIZE 
MOV R3.12782 [SET UP RECORD SIZE IN PACKET 
MOV Ra. TSDB(RS) S ISSUE COMMAND 
JSR PC’ ‘WAIT FOR SSR TO SET 
MOV TSéRces), R1 [GET TSSR CONTENTS 
MOV #SSR,R2 ‘SET UP EXPECTED 
CMP R1,R2 TARE THEY EQUAL 
BEQ 80$ :BR, IF OK 
INC FATFLG ‘BUMP COUNT 
ERRHRD ERRNO,WRTERR,PKTSSR [TSSR INCORRECT AFTER WRITE DATA 
TRAP  C$ERHRD 
.WORD 731 
“WORD WRTERR 
“WORD PKTSSR 
80$:  CKLOOP :LOOP IF SELECTED 
TRAP _— C$CLP1 


SRAAAAAAAAAAERERARERRAEREERERERAEAAERERERAREERERARARREEEREREEEKERKEKKREE 


[WRITE DATA RETRY,ACK,SWB=1 COMMAND 


s 
FARRAR AAAEAAEAEREREEEREREAEEEREEERERERRERERRHEERREREEAEERAEREREKEKEEKEREE 


oT reel a att} we RETRY,ACK,SWB=1 COMMAND 


MOV R4,T Z1SS 

JSR PC. Ww UAITR. [WAIT FOR SSR TO SET 

MOV TSSR(R5) RI [GET TSSR CONTENTS 

MOV #SSR,R2 [SET UP EXPECTED 

CMP R1,R2 TARE THEY EQUAL 

BEQ 90$ ‘BR, IF OK 

INC FATFLG [BUMP COUNT 

ERRHRD ERRNO, T27WRF ,EXPREC TTSSR INCORRECT AFTER WRITE DATA RETRY 
TRAP  CSERHRD 
«WORD 732 
“WORD T27WRF 
“WORD EXPREC 

90$:  CKLOOP ;LOOP IF SELECTED 

RAP C$CLP1 

TST (R3)+ ;BUMP RECORD SIZE COUNTER 

CMP R3,440. SAT 40 SIZE 

BNE 65$ :BR, IF MORE RECORDS TO WRITE 


J RARAAAAAAEEARAAAEAAEARAERERERAEEEEAAARAREEERREERRAEEREEEREREEREEEREEEE 


TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


° 
FERRARA AAAAAEAERERAAAEAEEEEEEAEEARERAEAAAEAREARERRAEEEEEREEEEEEEREREEREE 


JSR PC REWIND sCALL yare ad by COMMAND 
BCS F NO PROBLEM 

MOV TSSR(RS),R1 Get TSSR_ CONTENTS 

— we ae 2GET PACKET ADDRESS 


C 
TREWIND NOT ACCEPTED 


ERRHRD ERRNO T27RWN,PKTSSR 





TEST 


WRITE 
077374 
077376 
077400 


077402 
9810 077404 
077404 


077446 


7 
9838 077454 
9839 077462 
9840 077466 


077530 
9852 077532 
077532 
9853 077534 


9857 077550 


DATA RETRY 


013701 


013737 


012737 
01 


001406 
005237 
104456 
001337 


005204 
012136 


060 
000303 


TSV7 + “pr chite pat TESTS 1-8 


101440 
000002 


002212 


000024 
003114 


100001 
0 


000200 


002212 


003114 
000024 
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101532 


101530 


2308: 


CKLOOP 


sLOOP IF SELECTED 


FERAAAAAAAAAEEAERAERAREREERERERERAERAAEARRAREERAAREARAEREREEREREREREKEEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


° 
FARRAR RAAEEEEEAERERERERERAARARAREERERRRERREERERREREREREREKREEREREE 


2408: 


ERRHRD 


CKLOOP 


MOV 
MOV 


T27BFR+6,R1 PICK UP XSTO 

R1,R SET + 4 EXPECTED 

#BIT1,R2 ;SET BOT BIT IN EXPECTED 

R1,R2 DOES EXP = REC'D 

2408 <BR. IF EQUAL (OK) 

ERRNO, T27BOT ,EXPREC [TAPE NOT AT BOT AFTER REWIND 
. WORD 
“WORD 
“WORD 

:LOOP IF SELECTED 

TRAP 


zSTARTING RECORD SIZE 


#20. ,R3 
FREE, T27RB STARTING READ BUFFER ADDRESS 


FARA AAAAAAERARAERERAEEEEEERRARAERAERERARERREREREREEREREERKAERERERERE 


[READ DATA,ACK COMMAND 


° 
SERA AAAREARAERAEARRARERERERERAEERREREEAEAREEREREEERERERRERERRERREREERE 


265$: 


280$: 


285$: 


ERRHRD 


CKLOOP 


#100001, T27PK3 sREAD DATA,ACK COMMAND 
#T27PK3_RG ‘SET UP R4 WITH PACKET ADDRESS 
R3, 12782 ZSET UP RECORD SIZE IN PACKET 
R4, TSDB(RS) SISSUE COMMAND 
PC. WAI TF [WAIT FOR SSR TO SET 
TSSR(R5),R1 :GET TSSR CONTENTS 

#SSR_R2 7SET UP EXPECTED 
R1,R2 TARE THEY EQUAL 
280$ 7BR, IF K 


FATFLG 
ERRNO ,RDERR ,PKTSSR 


TRAP 
WORD 
“WORD 
WORD 
SLOOP IF SELECTED ‘ae 
FREE ,R2 :GET BUFFER ADDRESS 
R3,R4 :GET RECORD SIZE 
#20. .R4 “POINT BACK TO 1ST RECORD 
R2,R4 [POINT TO 1ST LOC IN BUFFER 
R3 SSWAP BYTES SWB=1 ETC. 


SEQ 0341 
CSERHRD 
733 
T27RWN 
PKTSSR 


CSCLP1 


CSERHRD 
734 


T27B0T 
EXPREC 


CSCLP1 


CSERHRD 
735 
RDERR 
PKTSSR 


CSCLP1 
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TEST 7: WRITE DATA RETRY SEQ 0342 
9858 077552 021403 CMP (R4) ,R3 ZDATA WRITTEN = READ 
9859 077554 001410 BEQ 290$ :BR, IF DATA OK (GOOD) 
9860 077556 011401 MOV (R4),R1 ‘PICK UP BAD DATA 
9861 077560 010302 MOV R3,R2 3SET UP EXPECTED 
9862 077562 005237 002212 INC FATFLG COUNT 
9866 077566 ERRHRD ERRNO, T27DTA, EXPREC “DATA IN BUFFER NOT CORRECT 
077566 104456 TRAP CSERHRD 
077570 001340 .WORD 736 
077572 104416 “WORD T27DTA 
077574 015564 “WORD EXPREC 
9867 077576 290$:  CKLOOP :LOOP IF SELECTED 
077576 104406 TRAP _— C$CLP1 
77600 005724 TST (RG)+ zBUMP TO NEXT ADDRESS 
2 160204 SUB R2,R4 ZBACK TO RECORD SIZE 
000303 SWAB [PUT R3 BACK INTO SHAPE 
9871 077606 020403 CMP R4,R3 AT END OF RECORD YET 
9872 077610 001356 BNE 285$ R, IF MORE DATA TO CHECK 
9873 077612 005723 TST (R3)+ ‘BUMP RECORD SIZE 
9874 077614 020327 000046 CMP R3,438. [DONE YET 
9875 077620 001315 BNE 265$ 7BR, IF NOT DONE YET (MORE READS) 
9876 077622 300$:  CKLOOP SLOOP IF SELECTED 
077622 104406 TRAP _— C$CLP1 
9877 077624 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
077624 L10126: 
077624 104403 TRAP C$ESUB 
9878 077626 023727 002212 000017 CMP FATFLG,#15. z1S ERROR COUNT AT 25 
9879 077634 103402 BLO 999$ 7BR, IF LESS THAN 25 
9880 077636 004737 017272 JSR PC, CKDROP ‘TRY TO DROP THE UNIT 


0776 
9881 077642 999$: 
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| TEST 7: WRITE DATA RETRY SEQ 0343 
| 9883 + 
9884 ; 
| + + sTEST 7, SUBTEST 5 
9887 [VERIFIES THAT A WRITE DATA RETRY COMMAND IS 
9888 PERFORMING THE ‘‘ERASE'' PART OF THE OPERATION BY 
+ 24 sPERFORMING THE FOLLOWING SERIES OF STEPS. 
9891 1. THE TAPE IS REWOUND AND A senies A RECORDS ARE 
9892 2 WRITTEN WITH THE NORMAL WRITE A COMMAND. THIS 
9893 g SHOULD RESULT IN RECORDS SEPARATED BY THE 
bs 3 STANDARD INTERRECORD GAP. 
9896 32. A PROGRAM oak tek VALUE IS CALIBRATED BY REWINDING 
9897 ; THE TAPE AND THEN CONUTING TH ER OF CYCLES 
9898 : THROUGH A PROGR AMMED LOOP REQUIRED TO SPACE OVER 
9899 pe. 4 SERIES OF RECORDS WRITTEN IN PREVIOUS 
9901 ; ~ 
9902 33. THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF 
9903 ; RECORDS WRITTEN AGAIN, THIS TIME USING THE WRITE 
9904 3 DATA RETRY COMMAND. THIS SHOULD RESULT IN 
9905 ; RECORDS SEPARATED BY A LONG INTERRECORD GAP. 
9907 24. THE TAPE IS oon ho THE SPACING COMMAND 
9908 3 ISSUED, AND THE NUMBER OF TIMMING LOOP CYCLES 
4444 4 COUNTED TO COMPLETE THE OPERATION. 
9911 5. THE TWO LOOP COUNTS ARE COMPARED, CHECKING TO SEE 
44s 4 3 THAT THEY DIFFER BY A SIGNIFICANT AMOUNT. 
9914 : 
9915 $ 
9916 3 
Ea | 
9919 ores . BGNSUB 3>>>>>>>>>>>> aren SUBTEST >>>>>>>>>>>> 
077642 104402 *"" TRAP ~—sC$BSUB 
9920 077644 005037 002214 CLR INTRECV : INTERRUPT INDICATOR 
9921 077650 005037 101556 CLR T27CNT sTIMER FOR WRITE DATA SPACING 
9922 077654 005037 101560 CLR T27CNU TIMER FOR gk. DATA RETRY SPACING 
9923 077660 004737 104534 JSR PC, T27REST SET COMMAND PACKET 
9924 077664 004737 104626 JSR PC, T27RT2 3SET UP OTHER COMMAND PACKET 
9925 077670 004737 104670 JSR PC, T27RT3 :SET UP OTHER COMMAND PACKET 
oose 077674 012737 176750 101562 MOV #65000. ,T27DLY ;SET UP DELAY COUNTER 
9928 SAAR RARAEREEEREEERAEEEEAEEEEAAEREEEAEAEEEREEEREERERREREEREREREEREREE 
9929 Z 
pat : ISSUE CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
9932 PT TTITITLITETITELT TLE TT LETTE LTTE TTT TTT eT TTT TTT 
9933 
9934 477702 004737 016064 10$: JSR PC, SOFINIT :D0 INITIALIZE ON CONTROLLER 
9935 077706 102426 BCS 20$ 3BR IF INIT WAS O 
9936 077710 DELAY 250 sDELAY ABOUT .25 SEC 
077710 012727 000250 MOV #250, (PC)+ 





a 
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TEST 7: WRITE DATA RETRY SEQ 0344 
077714 060000 .WORD 0 
077716 013727 002116 MOV LSDLY, (PC)+ 
077722 000000 WORD 
077726 005367 177772 DEC -6(PC) 

7730 001375 BNE 4 

077732 005367 177756 DEC =22(PC) 
077736 001367 BNE --20 

9937 077740 005337 101562 DEC T27DLY ZBUMP COUNTER 

9938 077744 001356 BNE 10$ :BR. IF COUNTER NOT DONE 

9939 077746 005237 002212 INC FATFLG COUNT 

9943 077752 010001 MOV RO,R1 [CONTENTS OF TSSR REGISTER 

9944 077754 ERRDF ERRNO, SFIERR,SFIMSG [FATAL ERROR TSSR WAS NOT OK 
077754 104455 TRAP  CSERDF 
077756 001341 «WORD 737 
077760 003650 “WORD SFIERR 
077762 012124 “WORD  SFIMSG 

9945 077764 013737 002172 101430 20%: MoV UNITN, T27DSW :SET UP UNIT NUMBER 

9947 077772 012704 101410 MOV #T27PACKET,RG ;SUBROUTINE NEEDS PACKET ADDRESS 

9949 J ERAAAAAAARAERARAARREREREREEERAEERAARERERRARERRERRARRARRERERKERREREE 

9950 ; 

9951 [WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

9953 ITTITITTILILILTT TITTLE TL TTL TTTLI TTT TTT TTT TTT TTT TTT 

9954 

9955 077776 004737 010752 JSR PC,WRTCHR TISSUE WRITE CHARACTERISTICS 

9956 100002 103407 BCS 23$ 'BR, IF COMMAND ISSUED Ok 

71 005237 002212 INC FATFLG [BUMP COUNT 

9961 100010 010001 MOV RO,R1 SSAVE CONTENTS OF TSSR 

9962 100012 ERRHRD ERRNO,WRTMSG, SF IMSG [WRITE CHARACTERISTISC FAILED 
100012 104456 CSERHRD 
100014 001342 TeoRD 738 
100016 005054 “WORD  WRTMSG 
100020 012124 “WORD  SFIMSG 

9963 100022 23$:  CKLOOP :LOOP IF SELECTED 
100022 104406 TRAP — CSCLP1 

9965 FARAAAARARAERAEARAREEAERERERERERARAERAEERERERRERERERERAREEREREREREKEEE 

9966 3 

9967 S ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

9969 TTTTTITTITELELE CETTE LETTE TTT TTT TTT TTT TTT TTT 

9970 

9971 100024 004737 011104 JSR PC REWIND ZCALL TAPE REWIND COMMAND 

9972 100030 103411 BCS 308 :BR, IF NO PROBLEM 

9973 100032 016501 000002 MOV TSSR(RS) RI :GET TSSR CONTENTS 

9974 100036 010004 MLV RO, Ra [GET PACKET ADDRESS 

9975 100040 005237 002212 INC ‘BUMP COUNT 

9979 100044 ERRIRD ERRNO” T27RWN, PKTSSR SREWIND NOT ACCEPTED 
100044 104456 TRAP CSERHRD 
100046 001343 «WORD 739 
100050 102735 “WORD  T27RWN 
100052 012136 “WORD  PKTSSR 

9980 100054 30$:  CKLOOP :LOOP IF SELECTED 


100054 104406 TRAP CSCLP1 








f 
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9982 
9983 
9984 
9985 
99 
9987 
99 
9989 
9990 
9991 
p44 
999 
9997 


eh nb et ts ss at os st 


2e5e88 & 


gs 


a3 


Sssss 


ws SS SS SY Ss SV SY SS SS 
od eh ee et a a 


—NOUSWN—O 


3888 


ite 


SNOSRRNVSSANSEN 


essssssss 


013701 


012737 


004737 
103411 
016501 


101440 
000002 


002212 


000144 
003114 


0005 


011104 
000002 
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FRAAAAAAAAAAAAAAARERAHEEEAEEEKRKKKEE 


RARARAAERARAARARARERERERARREKRKEEE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


: 
FERRARA AAAAAAERAAEAAAARAERAAARERAARAAEEERAAERREEREREEREEREREEREEREREE 


sPICK UP XSTO 

3SET UP _ EXPECTED 

3SET BOT ay IN — 
;DOES EXP = REC'D 

BR, IF EQUAL (OK) 


[TAPE NOT AT BOT AFTER REWIND 


sLOOP IF SELECTED 


RAP 
NUMBER OF RECORDS TO BE WRITTEN 
sSTARTING WRITE BUFFER ADDRESS 


J AAAAAAAAAERAAEERAERAREREEERERARERAEEAEAARERERERREREREREREEKEREKEEEE 


° 
FEAR AAAARAAAAAAREAAAREERERAEAARARAREREAARAERERERAERARERERRRRERERERERREE 


MOV T27BER+6, R1 
MOV 
BIS aBiti. R2 
CMP R1,R2° 
BEQ 40$ 
INC FATFLG 
ERRHRD ERRNO, T27BOT, EXPREC 
40$:  CKLOOP 
MOV #100. ,R3 
101532 MOV FREE, 127WB 
[WRITE DATA,ACK,CVC=1 COMMAND 
101530 65$: MOV #140005, T27PK3 
MOV #T27PK3_R 
101536 MOV #20. 12782 
MOV R4, TSDB(RS) 
JSR PC. WAITF 
MOV TSSR(R5) RI 
MOV #SSR,R2 
CMP R1,R2 
BEQ 70$ 
INC FATFLG 
ERRHRD ERRNO,WRTERR,PKTSSR 
70$: CKLOOP 
DEC R3 
BNE 65$ 


eure DATA, ACK,CVC=1 COMMAND 


R4 WITH PACKET ADDRESS 


UP R 
3SET T commas SIZE IN PACKET 


:ISS OMMAN' 

WAIT FOR SSR TO SET 

2GET TSSR CONTENTS 
UP EXPECTED 


SARE THEY EQUAL 
F OK 


SEQ 0345 


CSERHRD 
740 


T27B80T 
EXPREC 


CSCLP1 


BUMP COUNT 
STSSR INCORRECT AFTER WRITE DATA 


sLOOP IF SELECTED 


TRAP 
DEC RECORD COUNTER 
:BR, IF MORE RECORDS TO WRITE 


J TAAAAAAAAARAAAEEEEAAEAEAAEEEREEAARAREEREEEERREREREEEEEEREREREREERERE 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


« 
FERRARA AEAAAAAEAAAEREAEERERAEAEERAEARARREEEEEAEEREERARERERERERERERERREEEEE 


JSR PC REWIND 
BCS 136$ 
MOV TSSR(RS),R1 


= CALL TAPE a ay A ero 
:BR, IF NO PROBLEM 
ZGET TSSR CONTENTS 


CSERHRD 
741 


WRTERR 
PKTSSR 


CSCLP1 


ite 44 - patie HS i 


WRITE DATA RETR 
24 010004 

¢8 005237 
32 104456 
34 001346 
36 102735 
: 012136 
2 104406 


00244 013701 


10069 100312 012737 


02 
00404 001406 





002212 


101440 
000002 


002212 


101530 
000010 


140010 
000000 
101556 
000001 
002116 
177772 
177756 


000002 
000200 


000002 
000200 
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101532 


101530 


INC FATFLG 
ERRHRD ERRNO, T27RWN,PKTSSR 


130$: CKLOOP 


FEAR AAAAAAAEAAERAAREREEAAERRERAAREREREEREEERAEERRERREREEEREREREEERE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
FARRAR AAAEAAAAEARARRERREEERRERREEREREERAERAREAERERERERREEREREREREEEEEE 


MOV pa R1 
R1,R2 


MOV 

BIS #B1T1,R2 
CMP R1,R2- 
BEQ 1608 


INC 
ERRHRD ERRNO. T27B0T ,EXPREC 


140$: CKLOOP 


MOV #T27PK3,R4 
MOV #10,T27RB 


SRAAAAAEAAAAEEAEAAEAEREEAEEEREEAERERREREERERERERARERREREREREERERE KKK 


TACK, CVC=1,SPACE FORWARD COMMAND 


. 
° 
FERAAAEAAEAARAEEAAEEEAAEEAERAEREEERERAERAEAAERAREREREAERERRERRAERRAEREREEREERE 


MOV #140010, T27PK3 
150$: MOV R4, TSDB(R5) 
152$: IN Te7cnr 


MOV TSSR(RS) ,R1 
BIT 1 ha 


BEQ 1 
MOV TSSR(RS) ,R1 
MOV #SSR,R2 
CMP R2,Ri 

BEQ 160$ 


SEQ 0346 
:GET oe ADDRESS 
REWIND NOT ACCEPTED 
P CSERHRD 

«WORD 742 
«WORD T27RWN 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CSCLP1 

sPICK UP XSTO 

SET UP_EXPECTED 

SET BOT BIT IN abate 

DOES EXP = REC’D 

BR, IF EQUAL (OK) 

BUMP COUNT 

:TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
WORD 743 
«WORD 127B0T 
«WORD EXPREC 

LOOP IF SELECTED 

P CSCLP1 

SET UP PACKET ADDRESS 

SET UP RECORDS TO SPACE OVER 

sACK,CVC=1,SPACE FORWARD COMMAND 

2 ISSUE COMMAND 

BUMP TIMER 

:DELAY ABOUT 100US 
MOV #1, (PC)+ 
-WORD 0 
MOV LSDLY,(PC)+ 
-WORD 0 
DEC ~6(PC) 
BNE = 
DEC ~22(PC) 
BNE -720 


:GET TSS 
2 CHECK POR TSSR* m SSR SET 


3 D 
WAS EVERYTHING OK 
:BR, IF ALL IS WELL 


. 





TEST 7: WRITE 
10080 100406 
10084 100412 
100412 
100414 
100416 
100420 

10085 100422 
100422 

10086 

10087 

10088 

10089 

10090 

10091 

10092 

10093 100424 

10094 100430 

10095 100434 

10096 100436 

10097 100440 

10101 100444 
100444 
100446 
100450 
100452 

10102 100454 
100454 

10103 

10104 

10105 

10106 

10107 

10108 

10109 

10110 100456 

10111 100462 

10112 100464 

10113 100470 

10114 100472 

10115 100474 

10119 100500 
100500 
100502 
00504 
100506 

10120 100510 
100510 

10121 100512 

10122 100516 

10123 

10124 

10125 

10126 

10127 

10128 

10129 

10130 100524 
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DATA RETRY 


065237 


010001 
005237 
104456 


012136 
104406 


013701 


737 


012737 


002212 


101440 
000002 


002212 


000144 
003114 


140005 
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101532 


101530 


INC FATFLG BUMP COUNT 
ERRHRD ERRNO,T27SCF ,PKTSSR sSPACE FORWARD DIDN'T —— 
«WORD 
» WORD 
- WORD 
160$: CKLOOP LOOP IF SELECTED 
TRAP 


FARRAR AAAAARAAAERAAERAAEAEEEEREEERAERARARAERAERERAAERARREREEEREEEREEEKEEEE 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


¢ 
FARRAR AAAAAEAARAREREEEEREREREEAERARAREEREREREREEEREREEEEREEEREREEREE 


JSR PC,REWIND ZCALL TAPE REWIND COMMAND 

JSR PC. CHKTSSR [SEE HOW TSSR IS 

BCS 170$ ‘BR, IF NO PROBLEM 

MOV RO,R1 [SAVE TSSR 

INC FATFLG : COUNT 

ERRHRD ERRNO, T27RWN,PKTSSR SREWIND NOT ACCEPTED 
. WORD 
— WORD 
WORD 

170$:  CKLOOP :LOOP IF SELECTED 

TRAP 


FERRARA AAEAEEREAERREEAERERARRAAERERAEREEEREEREEERERAEEEREEREEKEEERE 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
FARAAAAAAAARAAARAEREAREEEEEEEERERAREEREREEREERERAEEREREERERKERKE KEKE 


MOV T27BFR+6,R1 :PICK UP XSTO 
MOV R1,R2 :SET UP EXPECTED 
BIS #BIT1,R2 ‘SET BOT BIT IN EXPECTED 
CMP R1,R2 :DOES EXP = REC'D 
BEQ 175$ 7BR, IF EQUAL (OK) 
INC FATFLG : COUNT 
ERRHRD ERRNO, 127BOT.EXPREC :TAPE NOT AT BOT AFTER REWIND 
WORD 
WORD 
WORD 
175$:  CKLOOP :LOOP IF SELECTED. 
#100. ,R3 sSTARTING RECORD SIZE 


MOV 
177$: MOV FREE ,127WB sSTARTING WRITE BUFFER ADDRESS 


SRRAAAAAAAAAAAAAAEAAAEAEAERARARARAAAAAEAAREEAEERAREAEREREREREREKEREE 


[WRITE DATA,CVC=1,ACK COMMAND 


© 
FARRER AAARAAAAAERAAARAEAAAAAAAAAAARAAERAARAEEREEAEREAEAEAEEREREREEEEEE 


MOV #140005, T27PK3 sWRITE DATA,CVC=1,ACK COMMAND 


CSERHRD 
744 


T27SCF 
PKTSSR 


CSCLP1 


CSERHRD 
745 


T27RWN 
PKTSSR 


CSCLP1 


CSERHRD 
746 
T27B0T 
EXPREC 


CSCLP1 


TEST 7: WRITE DATA RETRY 
10131 100532 012704 101530 
Ole 100536 012737 000024 
10133 100544 010465 000000 
10134 100550 004737 016340 
10135 100554 016501 000002 
10136 100560 012702 000200 
10137 100564 020102 
10138 100566 001406 
10139 100570 005237 002212 
10143 100574 

100574 104456 
100576 001353 
100600 005111 
100602 012136 
10144 100604 
100604 104406 
10145 100606 005303 
10146 100610 001342 
10147 
10148 
10149 
10150 
10151 
10152 
10153 
10154 100612 004737 011104 
10155 100616 103411 
| 10156 100620 010004 
1015” 100622 016501 000002 
10158 100626 005237 002212 
10162 100632 
100632 104456 
100634 001354 
100636 102735 
100640 012136 
10163 100642 
100642 104406 
10164 
10165 
10166 
10167 
10168 
10169 
10170 
10171 
10172 100644 012703 000001 
10173 100650 004737 010556 
10174 100654 103411 
10175 100656 010004 
10176 100660 016501 000002 
10177 100664 005237 002212 
10181 100670 
100670 104456 
100672 001355 
100674 104177 
100676 012136 
10182 100700 








101536 


180$: 


IN 
ERRHRD 


CKLOOP 


DEC 
BNE 
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#T27PK3,R4 
#20.,12?SZ 
R4, TSDB(RS) 
PC ,WAITF 

TSER(RS) RI 


#SSR,R 
eRe 


FATFLG 
ERRNO ,WRTERR,PKTSSR 


R3 
177$ 


SET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
; ISSUE COMMAND 


sWAIT_FOR SSR_TO SET 
2GET TSSR CONTENTS 
SET UP EXPECTED 
sARE THEY EQUAL 

IF OK 


e e 


BUMP COUNT 
zTSSR INCORRECT AFTER WRITE DATA 
TRAP se 


-WORD WRTERR 
eWORD PKTSSR 


CS$CLP1 


LOOP IF SELECTED 


COUNT NUMBER OF RECORDS 
2BR, IF MORE RECORDS TO WRITE 


FARA RAAAEAAAEEAREAEEREREEEREERREEREEREREEREAEEERERERAEERERERREEEREREEEEE 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


° 
J RAAARAARAAAAEERAEARREAEREEERERERAERERERREEERERERAEEREREREREREERERRKERE 


182$: 


JSR 
BCS 
Vv 


MO 
MOV 
INC 
ERRHRD 


CKLOOP 


PC REWIND 


182$ 

RO,R4 

TSSR(RS) -R1 

ERRNO, T27RWN,PKTSSR 


ISSUE REWIND 

28R, IF ALL IS WELL 
GET PACKET ADDRESS 
GET TSSR  aitetaite 


BUMP COUN 

REWIND FAILED 
TRAP CSERHRD 
WORD 748 
WORD T27RWN 
-WORD PKTSSR 


TRAP CSCLP1 


SELECT LOOP MAYBE 


FARRAR ERAEEAEERERAEREREREERAERAEREREREEERERARRERERAEREREREEKEKEREEE 


ISSUE SPACE RECORDS COMMAND = VALUE IN R3 SETS NUMBER OF RECORDS 
2BIT 15 SETS DIRECTION = O=FORWARD 


° 
FERRARA AAAAEEREEEERERREREREREREARERERRERERRERERERERAEEREEREREREKEREREE 


185$: 


N 
ERRHRD 


CKLOOP 


#1 o oR3 

PC, SPACE 
185$ 

RO,R4 
TSSR(RS) RI 


FATFLG 
ERRNO, T27SCF ,PKTSSR 


1=REVERSE 


SPACE 1 RECORD FORWARD 
ISSUE SPACE COMMAND 
:BR, IF COMMAND OK 

GET PACKET ADDRESS 
GET TSSR STATUS 


: (Gus 
SPACE FORWAY COMMAND FAILED 
TRAP 


CSERHRD 
WORD 749 
-WORD T27SCF 
-WORD PKTSSR 
sLOOP IF SELECTED 


SEQ 0348 


TSV7? =_HARDWARE TESTS 1-8 


TEST 7: WRITE DATA RETRY 


1007 164406 
83 100702 012703 
1007 013737 


6 tab 012737 


ee ek ee ed nd od wd ed ed 

lolelelelelelejl~lelolelolealo]—) 

DOODOL OLD Dcworawe 

QRARAIVLSESESESL 
—_— 


100772 012136 


100774 104406 
10207 100776 013737 


10208 
10209 
10210 
10211 
10212 
10213 
10214 
10215 101004 012737 
10216 101012 0127 
10217 101016 012737 
10218 101024 010465 
10219 101030 004737 
10220 101034 016501 
10221 101040 012702 
10222 101044 020102 
10223 101046 001406 
10224 101050 005237 
10228 101054 
101054 1044 
101056 001357 
101060 005111 
101062 012136 
10229 101064 
101064 104406 
10230 101066 005303 
10231 101070 001311 
10232 
10233 
10234 


000144 
003114 


101005 


002212 


003114 


140005 
3 


000200 


002212 
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101532 


101530 
101536 


101532 


101530 
101536 


TRAP CS$CLP1 
MOV #100. ,R3 NUMBER OF RECORDS TO BE WRITTEN 
MOV FREE ,127WB sSTARTING WRITE BUFFER ADDRESS 


FERRARA AAEEEEERAEERERERERARAREREREEREREEREERERRERERRAEEREREEEREEEE 


[WRITE DATA RETRY,ACK COMMAND 


: 
FARRAR AAAARAARARARRERAEEAREERAEEEREREKEEEERREEREEREEREEREREERERREREEEEE 


190$: MOV HIgTPxS Re 2 T27PK3 WRITE DATA RETRY,ACK COMMAND 


MOV aT :SET UP R4 WITH PACKET ADDRESS 
MOV 20.,T2 3583 :SET UP RECORD SIZE IN PACKET 
MOV Ra. TSDB(R5) S ISSUE COMMAND 
JSR PC. WAITF [WAIT FOR SSR TO SET 
MOV TSSR(RS),R1 ‘GET TSSR CONTENTS 
MOV #SSR,R2 7SET UP EXPECTED 
CMP R1,Re TARE THEY EQUAL 
BEQ 200$ :BR, IF OK 
INC FATFLG : COUNT 
ERRHRD ERRNO,T27WDC,PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
TRAP  CSERHRD 
.WORD 750 
: “WORD T27WDC 
“WORD PKTSSR 
200$:  CKLOOP :LOOP IF SELECTED 
TRAP _— C$CLP1 
MOV FREE, 127WB ZSTARTING WRITE BUFFER ADDRESS 
FEAR AERAEAERERAEREREEREEEREREREREAEREKEREREEREREEEREREEEEREREREREEERE 
[WRITE DATA,CVC=1,ACK COMMAND 
TT TITTTITELETLITELELITE TELL LETT TTT TTT TTT TTT 
MOV #140005, T27PK3 ZWRITE DATA,CVC=1,ACK COMMAND 
MOV a 127 K3.R ‘SET UP R4 WITH PACKET ADDRESS 
MOV 20..12 3983 3SET UP RECORD SIZE IN PACKET 
MOV Ri 7808085) S ISSUE COMMAND 
JSR PC.WAITF [WAIT FOR SSR TO SET 
MOV TSSR(RS),R1 [GET TSSR CONTENTS 
MOV #SSR,R2 :SET UP EXPECTED 
CMP R1,R2 TARE THEY EQUAL 
BEQ 210$ ‘BR, IF OK 
INC FATFLG ‘BUMP COUNT 
ERRHRD ERRNO,WRTERR,PKTSSR TTSSR INCORRECT AFTER WRITE DATA 
TRAP  CSERHRD 
WORD 751 


“WORD WRTERR 
“WORD PKTSSR 


210$: CKLOOP LOOP IF SELECTED ae 
DEC R3 sBUMP DOWN RECORD COUNTER 
- BNE 190$ ; :BR, IF MORE RECORDS TO WRITE RETRY 


PEAR AAAAAAERAREEAAAEEEAEARAERARAAERAEAAEREAEEREAREREEAEEETARARERERE 


SEQ 0349 


teen 
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TEST 7: WRITE DATA RETRY SEQ 0350 

tH sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

10237 ITTTIITITILIIIT ITIL ELIT TTL LIT TLL Titi ii Ti iiT etree Tete 

10238 

10239 101072 004737 011104 JSR PC REWIND ;CALL TAPE REWIND COMMAND 

10240 101076 103411 BCS 7BR, IF NO PROBLEM 

10241 101100 016501 000002 MOV TSSR(RS),R1 3GET TSSR CONTENTS 

10242 101104 01000 MOV R :GET PACKET ADDRESS 

10243 101106 005237 002212 INC FATFLG ;BUMP COUNT 

10247 101112 ERRHRD ERRNO, T27RWN,PKTSSR sREWIND NOT ACCEPTED 
101112 104456 TRAP CSERHRD 
101114 001360 -WORD 752 
101116 102735 «WORD T27RWN 
101120 012136 -WORD PKTSSR 

10248 101122 230$: CKLOOP ;LOOP IF SELECTED 

10249 101122 104406 TRAP CSCLP1 

10250 FRAEARARRERARAEEEAEEREEERERERAEERREREERREREREREREREREREREERERRERERREER 

10251 3 

10636 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

10254 ITI IIITILILILILELELILE LTTE EEE L LETT TTT TTT TTT TTT TTT TTT TTT 

1025 

10256 101124 013701 101440 MOV T27BFR+6,R1 sPICK UP xSTO 

10257 101130 010102 MOV R1,R2 sSET UP EXPECTED 

10258 101132 052702 000002 BIS #B1T1,R2 :SET BOT BIT IN EXPECTED 

10259 101136 020102 CMP R1,R2 sDOES EXP = REC'D 

10260 101140 001406 BEQ 240$ 7BR, IF EQUAL (OK) 

10261 101142 005237 002212 INC FATFLG 3 

10265 101146 ERRHRD ERRNO,T27B0T,EXPREC 3; TAPE NOT AT BOT AFTER REWIND 
101146 104456 TRAP CSERHRD 
101150 1361 eWORD 753 
101152 102431 «WORD T27B0T 
101154 015564 -4ORD EXPREC 

10266 101156 240$: CKLOOP ;LOOP IF SELECTED 
101156 104406 TRAP CSCLP1 

10267 101160 012704 101530 MOV #T27PK3,R4 3SET UP PACKET ADDRESS 

ioses 101164 012737 000010 101532 MOV #10,T27RB ;SET UP RECORDS TO SPACE OVER 

10270 FRRAAARAAARAEERREERAEREREEEEERRAEREERERREAERRERERERREEREREERERRERERE 

10271 3 

ere sACK,CVC=1,SPACE FORWARD COMMAND 

10274 ITITIIITILITITITLLL LLL LETTE TTT TTT TTT TTT 

10275 

10276 101172 012737 140010 101530 MOV #140010, T27PK3 zACK,CVC=1,SPACE FORWARD COMMAND 

10277 101200 010465 000000 250$: MOV R4, TSDB(RS) ; ISSUE COMMAND 

10278 101204 005237 101560 252$: INC T27CNU ; TIMER 

10279 101210 DELAY 1 :DELAY ABOUT 100US 
101210 012727 000001 MOV #1, (PC)+ 
101214 - WORD 
101216 013727 002116 MOV LSDOLY,(PC)+ 
101222 00 - WORD 
101224 005367 177772 DEC -6(PC) 
101230 001375 BNE 274 
101232 005367 177756 DEC -22(PC) 
101236 001367 BNE -720 





TSV7 =_HARDWARE He iar 


1 TEST 7: WRITE 
10280 101240 
10281 101244 
10282 101250 
10283 101252 
10284 101256 
10285 101262 
10286 101264 
10287 101266 
10291 101272 

101272 
101274 
101276 
101300 
10292 101302 
101302 
10293 101304 
0294 101310 
10295 101314 
0298 101316 
10297 101320 
10298 101322 
10299 101326 
10300 101332 
10301 101334 
10302 101336 
10306 101342 
101342 
101344 
101346 
101350 
10307 101352 
101352 
10308 101354 
101354 
101354 
10309 101356 
10310 101364 
10311 101366 
10312 101372 
10313 
10314 
10315 
10316 101372 
10317 101376 
10318 1014 
10319 1014 
10320 101404 
101404 
101406 


DATA RETR 


o- 
a 
mer 
NS 3 SWWwS 
UNO 
ann 


R 


o-—-——00— 
SAQA — 


004737 


004737 
103002 
000137 


104432 
003304 


000002 
000200 


000002 
000200 


002212 


101556 
101560 


000077 
000777 


002212 


002212 
017272 


016546 
074736 
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000017 


260$: 


300$: 


ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 
ENDSUB 





sod gett R1 

#BIT7,R 

252$ 
TSSR(P5) RI 
#SSR,R2 
2,Ri 
60$ 


FATFLG 
ERRNO, T27SCF ,PKTSSR 


T27CNT,R1 
T27CNU,R2 


. 
e 


are R1 

R1,R2 

3008 

EARN T27TIN.EXPREC 


FATFLG,#15. 
999 
PC, CKDROP 


PC, TSTLOOP 
163$ 
T27L00P 
TST 


3GET 
CHECK POR TSSR*S SSR SET 
EP COUNTING UNTIL SET 


3 TED 
[WAS EVERYTHING OK 
BR P “ — IS WELL 


[SPACE FORWARD DIDN'T WORK OUT 
TRAP 


- WORD 

- WORD 

- WORD 
LOOP IF SELECTED 

TRAP 


At} ron WRITE SPACING 
;TIME FOR WRITE RETRY SPACING 

:GET°EM PRETTY CLOSE 

7GET'EM PRETTY CLOSE 

7GET°EM PRETTY CLOSE 

:C OW 6 BITS 


CSERHRD 
754 
T27SCF 
PKTSSR 


CSCLP1 


CSERHRD 
755 
T27TIM 
EXPREC 


CSCLP1 


CSESUB 


sCLEAR LOW 6 
sSETTING UP CONSTANTS 
sCHECK FOR DIFFERENCE 
2BR, on @aa@ CHECK aaaa 
sTIME WAS NOT DIFFERENT ENOUGH 
TRAP 
- WORD 
WORD 
WORD 
;LOOP IF SELECTED 
TRAP 
3 KKKKK KKK KKK END SUBTEST >>>>>>>>>>>> 
L10127: 
TRAP 
71S ERROR COUNT AT 25 


BR, IF LESS THAN 25 
:TRY TO DROP THE UNIT 


4+ WE NEED TO ITERATE TEST 
R, IF NO LOOP REQUIRED 
EXECUTE AGAIN 


sALL DONE THIS TEST 


SEQ 0351 
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TEST 7: WRITE DATA RETRY SEQ 0352 
1032 
IO3Si :LOCAL STORAGE FOR THIS TEST 
10328 101410 i27PACKET: COMMAND PACKET FOR res 
10329 101410 100004 «WORD 100004 [WRITE CHARACTERISTICS COMMAND, WITH , ACK 
10330 101412 101420 “WORD  T27DATA SADDRESS OF CHARACTERISTICS BLOCK 
10331 101414 000000 «WORD 0 
10332 101416 p00oT WORD 10. sSTARTING VALUE OF BLOCK SIZE 
10333 101420 T27DATA: ; CHARACTERISTICS DATA BLOCK 
10334 101420 101432 «WORD 127BFR ADDRESS OF MESSAGE BUFFER 
10335 101422 000000 -WORD 0O 
10336 101424 000024 -WORD 20. ;LENGTH OF MESSAGE BUFFER 
10337 101426 000000 -WORD 0 
10338 101430 000000 T27DSW: .WORD 0 sSELECT DRIVE 0 
103? 101432 T27BFR: .BLKW 25. MESSAGE BUFFER 
ORs WRITE SUBSYSTEM MEMORY COMMAND PACKET 
10344 101520 =<. +10>8177770 
10346 101520 T27PK2: 
10347 101520 100006 -WORD 100006 sWRITE SUB SYS MEM COMMAND, AND ACK 
10348 101522 101540 -WORD T27BF2 sADDRESS OF SELECT BLOCK DATA 
0349 101524 000000 -WORD 0O 
\Oeee 101526 000006 eWORD 6. sSIZE OF DATA PACKET 
10355 101530 T27PK3: 
10356 101530 100005 -WORD 100005 ;REREAD COMMAND, AND ACK 
10357 101532 T27RB: 
10358 101532 003114 T27WB: .WORD FREE ADDRESS OF WRITE BUFFER 
10359 101534 000000 -WORD 0 
10360 101536 000000 T27SZ: .WORD 0 sSIZE OF BUFFER (EXTENT) 
10361 EVEN 
10362 ; 
10363 $ 
10364 2 
10365 101540 T278F 2: 
10366 101540 010 T27B8S0: .BYTE 10 sBSELO AREA 
10367 101541 200 T27BS1: .BYTE 200 ;BSEL1 AREA 
10368 101542 000000 T27S2: .WORD 0 sSEL 2 AREA 
10369 101544 000000 T2783: .WORD 0 sDATA AREA 
10370 3 
10371 3 
10372 EVEN 
10373 ; TAPE MOTION PACKET COMMAND VALUES 
10375 101546 100205 T27RN: .WORD 100205 REREAD DATA (NEXT) 
10376 101550 100605 T27WDR: .WORD 100605 sREREAD DATA RETRY 
10377 101552 102205 T27CON: .WORD 102205 sWRITE CONTINOUS 
10378 101554 177777 eWORD 177777 sEND OF DATA 
133 
10381 101556 000000 T27CNT: .WORD 0 TAPE TIMER COUNTER STORAGE AREA 
10382 101560 000000 T27CNU: .WORD 0 TAPE TIMER COUNTER STORAGE AREA 
1038) 101562 000000 T27DLY: .WORD 0 DELAY COUNTER 
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TE ST 7: WRITE DATA RETRY SEQ 0353 
10 
10387 3+ 
10388 ;LOCAL TEXT MESSAGES FOR TEST 
10389 :- 
10391 
10392 101564 124 141 160 T27WNG: .ASCIZ ‘Tape Position Incorrect After REREAD Previous (OPP=1)° 
10393 101652 124 123 123 T27RDF: .ASCIZ ‘TSSR Incorrect After READ DATA Command’ 
0394 101721 122 105 122 T27RRF: .ASCIZ ‘REREAD Previous (Space Reverse, Reed Forward) Command Failed’ 
10395 102016 120 117 123 T27SC: .ASCIZ ‘POSITION (Space Command) Failed, TSSR te Correct 
10396 102100 122 111 19¢ T27LOR: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BOT 
10397 102150 124 123 123 T27WDF: .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set’ 
10398 102225 111 154 154 T27L0Q: .ASCIZ ‘Illegal Mode Bits, Failed To Set ILC Bit In xSTO° 
10399 102306 122 105 122 T27SSR: .ASCIZ tRERERD D COMMAND Not Accepted’ 
10400 102342 124 123 123 T27WDE: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY Command,At BOT’ 
10401 102431 124 141 160 T27B0T: .ASCIZ ‘Tape Not At BOT After REWIND age ey t.. Set In xSTO)* 
10402 102524 127 122 111 T27TIM: .ASCIZ ‘WRITE DATA RETRY''S Erase Tape Not 1 
10403 102601 122 105 122 T27EOT: .ASCIZ ‘REREAD DATA OVER EOT GAVE NO TAPE starise ALE | he 
10404 102660 124 123 123 T27TM: .ASCIZ ‘TSSR Not Correct After REREAD COMMAND Reject’ 
10405 102735 122 145 167 T27RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
104C3 10 122 101 115 T27RNC: .ASCIZ ‘RAM Error, Correct Data Pattern Not In Ram‘ 
10407 103057 124 123 123 T27AM3: .ASCIZ ‘TSSR Init. Failed After REREAD COMMAND’ 
10408 103126 104 162 151 Te70FL: .ASCIZ ‘Drive 7 Select Failed To Set ‘OFL’’ In TSSR’ : 
10409 103201 124 123 123 T27WDD: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command , SWB Bit Set’ 
10410 103271 124 123 123 T27WDC: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command 
10411 103344 103 126 103 T27VCK: .ASCIZ ‘CVC Set, Didn''t Reset VCK In Message Buffer’ 
10412 103417 124 123 102 7BA: .ASCIZ ‘TSBA Not Correct After REREAD DATA Command’ 
10413 103472 127 122 111 T27WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)‘ 
10414 103561 122 145 141 T27LON: .ASCIZ ‘Reading Long Record Failed To Set RLL Bit In XSTO’ 
10415 103643 122 145 141 T27LOP: .ASCIZ "Reading Long Record Failed To Set RLS Bit In xXSTO’ 
10416 103725 122 145 163 T27PBP: .ASCIZ ‘Residual Byte Count Incorrect After Short Record Read’ 
10417 104013 122 145 141 T27TRL: .ASCIZ Bs dae Lene Record Failed To Give Tape Status Alert’ 
10418 104101 127 122 111 T27NEF: .ASCIZ ‘WRITE DATA RETRY, At First Record, Failed To Set RIB Bit XST3° 
10419 104177 124 123 123 T27SCF: .ASCIZ ‘TSSR Not Correct After SPACE RECORDS Command‘ 
10420 104254 124 123 123 T27TSA: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY, Into BOT’ 
10421 104336 124 123 123 T27WRF: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY Command’ 
10422 104416 104 141 164 T27DTA: .ASCIZ ‘Data Compare Error, Data Read From Tape Not Equal To written’ 
10423 104513 127 162 151 TST271D: eASCIZ ‘Write Data Retry’ 
10424 EVEN 
10436 x 
10427 ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
10428 sWRITE SUBSYSTEM MEMORY COMMAND 
10429 ; 
10430 3° 
10431 
10432 104534 T27REST: 
10433 104534 SAVREG 7SAVE THE REGISTERS 
10434 104540 012701 101410 OV #T27PACKET,R1 sSTART OF THE PACKET 
10435 104544 012721 100004 MOV #100004, (Ri)+ sWRITE SUBSYSTEM MEM. WITH ACK, 
10436 104550 012721 101420 MOV #Te7DaTA, (R1)+ sADDRESS OF CHARAISTICS DATA BLOCK 
10437 104554 005021 CLR nt + sEXTENDED ADDRESS 
10438 104556 012721 000012 MOV #10.,(R1)+ sSIZE OF DATA BLOCK IN BYTES 
10439 104562 012721 101432 MOV aierérR, (R1)+ S ADDRESS OF MESSAGE BUFFER 
10440 104566 005021 CLR 
10441 104570 012721 000024 MOV 120, “R104 sLENGTH OF MESSAGE BUFFER 
10442 104574 005021 CLR 
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TEST 7: WRITE 
10443 104576 
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000006 
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101432 64$: 


T27RT2: 


T27RT3: 


ENDTST 


#0,(R1) 
#24, .R2 
#172777 T27BFRCR2) 


70. 23 
64 4$ 


#T27PK2,R1 
#100006, (R1)+ 
qatier ee a(R1)+ 
#6.,(R1)+ 

( + 
#T27BF2,R1 
(R1)+ 

(R1) 

PC 


#T27PK3,R1 
(R1)+ 
(R1)+ 


(R1)+ 
(R1) 


SELECT DRIVE ZERO 

NUMBER OF LOCATIONS TO BE CLEARED 
sALL wis MESSAGE BUFFER 

NEXT LOCATION 

zAT_END OF LOOP YET 

: RETURN GOING” UNTIL DONE 


tre) THE REGISTERS 


DDRESS 
:SIZE OF DATA BLOCK IN BYTES 
:POINT TO DATA SEL AREA 


RETURN 


—_ REGISTERS 
T UP POINTER ADDRESS 
: COMMAND SPACE 
ADDRESS y' anneal BLOCK 
sEXTENDED A DRES 
ee DATA TRANSFER BLOCK 


L10122: 


TRAP CSETST 


SEQ 0354 


a 
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8: WR'TE/READ TAPE MARK 
| 
10474 -SBTTL TEST 8: WRITE/READ TAPE MARK 
| $605 . 
10477 THIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES 
10478 : PROPER LY. IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE 
10479 ‘BY CHECKING THAT THE READ AND oe RECORDS wig. yay THE 
10480 ;TAPE MARK. IN “pe hg a ITE TAPE MARK IS THE FIRS 
10481 + SUBCOMMAND UNDER THE F T COMMAND BEING TESTED, IT IS VERIFIED 
10482 THAT THE CLEAR VOLUME cH CK (CVC) BIT OPERATES PROPERL V AND THAT 
YS oe FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED. 
10485 ; 
ree ;THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 
104 3 
10489 3 
10490 3° 
10491 H+ of Ap} BGNTST sas: 
10492 104714 012737 006446 002170 MOV #EPRT2,EPRTSW 3s SECONDARY — MESSAGE 
10493 104722 005037 003124 CLR K TENABLE {tet KT11 OFF 
10494 104726 004737 017364 JSR PC .KTOFF N KT11 BACK OFF IF THERE 
10499 104732 012700 112131 MOV #TST281D, RO :ASClI a hrge | TO IDENTIFY TEST 
10500 104736 004737 016600 JSR PC, TSTSETUP DO INITIAL TEST SETUP 
+ £541 104742 012737 000005 002206 MOV #5, LOOPCNT {PERFORM 5 ITERATIONS 
22 
10503 3 
10504 :TEST 8, SUBTEST 1 
1938 7 
10507 sVERIFIES THAT A FORMAT COMMAND (WITH ANY LEGAL MODE 
10508 ;CODE) WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS 
10509 SRE JECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL 
10510 ;VALID MODE CODES ARE CHECKED. 
10511 : 
10512 $ 
10513 ao 
10514 
10515 104750 T28LOOP: 
10516 Hy abt 4 BGNSUB y>>>>>>>>>>>> a >>>>>>>>>>>> 
104750 104402 TRAP C$B8SUB 
10517 104752 004737 112156 JSR PC, T28REST 3SET COMMAND PACKET 
10518 104756 004737 112250 JSR PC, T28RT2 :ScT UP OTHER COMMAND pacuaT 
10519 104762 004737 112312 JSR PC, T28RTS SET UP OTHER COMMAND PACKET 
10520 104766 004737 016064 JSR PC, SOFINIT :D0 per ze A. CONTROLLER 
10521 104772 103407 BCS 20$ :BR IF INIT WAS OK 
10522 104774 005237 002212 INC FATFLG COUNT 
10526 105000 010001 MOV RO,R1 CONTENTS OF TSSR REGISTER 
10527 105002 ERRDF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
105002 104455 TRAP CSERDF 
105004 001441 «WORD 801 
105006 003650 «WORD SFIERR 
105010 012124 «WORD SFIMSG 
10528 105012 012737 900007 110120 20$: MOV #7,T28DSW ;SET UP DRIVE NUMBER 
10529 105020 012704 110100 MOV aTOBPACEET, RG : SUBROUT INE NEEDS PACKET ADDRESS 
10530 105024 004737 010752 JSR PC, ,WRICHR S ISSUE WRITE CHARACTERISTICS 





SEQ 0355 


pa 


TSV 
TES 


10531 
10532 
10536 


0536 10 
10537 : 


105030 


105100 


= 
wr 
ow 


3 
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Ww 
—~ 


td a a ss ss ss ts ts 


AAAAAAAAAAAAA AAU UIA UII UT UT 
~“ AOAOUMUSE 
SRERVSSSENVSES 


Mun 
Su 
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a kk ek ek ek kk dd dk dd td ed dd td 
MViwn 
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_ 
oO 


~~ 
Ss ooooooooo 


10 
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010001 


o- 
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No 
EN 
ow 
NN 
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oa 


rr 
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002212 


002216 


016426 


002212 


110100 
000007 
010752 


002212 


000002 
000100 


002212 


110120 


24$: 


30$: 


50$: 


60$: 


65$: 


BCS 
INC 


MOV 
ERRHRD 


CKLOOP 


CKLOOP 


MOV 
ERRHRD 
CKLOOP 
MOV 
BIT 
BNE 


INC 
ERRDF 


CKLOOP 
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24$ 

FATFLG 

RO,R1 

ERRNO ,WRTMSG, SF IMSG 


EXTFEA 
50$ 


ace Tee y 


PC,CHKTSSR 


308 
1 


FATFLG 
ERRNO, T28SSR,PKTSSR 


#T28PACKET,R4 

#7, T28DSW 

PC, URTCHR 

50$ 

FATFLG 

RO,R1 

ERRNO ,WRTMSG, SF IMSG 


TSSR(RS) ,R1 
#OFL,R1 


FATFLG 
ERRNO, T280FL,SFIMSG 


#T28RN,R3 
(R3), Te8PK3 
#T28PK3,R 
R4, PebatRS) 
PC. WAITF 


-BR. IF COMMAND ISSUED Ok 
COUNT 


‘SAVE CONTENTS OF 


TSSR 
WRITE CHARACTERISTISC eos 


CSERHRD 
802 

WRTMSG 
SF IMSG 


CSCLP1 


:CHECK FOR on te on FEATURES SW SWITCH 


36R IF SWITCH IS ON 


sWRITE MISCELLANEOUS CONT/READ STATUS 


sFUNCTION SELECTION BIT (TURN ON EXTFEA Hw 
WRITE SUBSYS MEM PACKET 
; ISSUE COMAAND 


[WAIT FOR SSR 


. IF NO ERROR 


:BR 

sERROR, SAVE TSSR 
BUMP COUNT 

zTSSR NOT CORRECT AFTER a F MISCELLANEOUS 


SAVE CONTENTS OF TSSR 


;LOOP IF SELECTED 


«WORD 
- WORD 
«WORD 
TRAP 


CSERHRD 
803 
T28SSR 
PKTSSR 


CSCLP1 


3 SUBROUTINE 2 PACKET ADDRESS 


PeLeel DRI 


SSUE URITE CHARACTERISTICS 
COMMAND ISSUED OK 


WRITE CHARACTERISTISC FAILED 
TRAP 


SCOPE LOOP 


COUN 
OFF LINE SHOULD HAVE BEEN SET wie 


GET TSSR CONTENT 
BR, IF OFFLINE ( 
; BUMP T 


;LOOP IF SELECTED 


POINTER FOR COMMANDS 
: TAPE READ COMMAND IN PLA 
3R4 = POINTER TO PACKET 


2 ISSUE COMMAN 
zWAIT FOR SSR TO SET 


«WORD 
- WORD 
«WORD 


TRAP 
CHECK FOR THE OFFLINE BIT SET 


CSERHRD 
804 


WRTMSG 
SF IMSG 


CSCLP1 


TRAP CSERDF 
- WORD 05 

-WORD T280FL 
«WORD SFIMSG 
TRAP CSCLP1 


SEQ 0356 


SWITCH) 
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10580 105246 





016501 
0 





000002 
100306 


002212 


177777 


002212 
017272 


112 
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ERRHRD 


80S: CKLOOP 


90$: 


000017 CMP 


999$: 


TSSR(RS) RI GET TSSR CONTENTS 

#SSR)SC!OFL!B1T1 8172, R2° SET UP EXPECTED 

R1,R2 i ARE THEY E 

gg iBR. IF Ok ESP. FUNCTION REJECT 

ERRNO, T28TM, PKTSSR TTSSR INCORRECT AFTER FORMAT CMD 
TRAP CSERHRD 
.WORD 806 
"WORD T28TM 
“WORD PKTSSR 


LOOP IF SELECTED 
TRAP CSCLP1 


(R3)+ sPOINT TO ~ ig! COMMAND 
creer eee sEND e THE COMMANDS YET 
65$ [MORE COMMAND(S) TO GO 

7 >>>>>>>>>>>> tions >>>>>>>>>>>> 

L 
TRAP C$ESUB 

FATFLG,#15. ‘iG ERROR COUNT AT 25 
999$ IF LESS THAN 25 
PC, CKDROP ray TO DROP THE UNIT 


SEQ 0357 
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| TEST 8: WRITE/READ TAPE MARK 


10601 
1060 

1060 

10604 
10605 
10606 
10607 


3 
8 


SESES 
ans 


R588883 
FWODBNOUS 


104402 
004737 112156 
004737 112250 
004737 112312 
004737 016064 
103407 
005237 002212 
010001 
104455 
001447 
003650 
012124 
013737 002172 
012704 110100 
004737 010752 
103407 
005237 002212 
010001 
104456 
001450 
005054 
012124 
104406 
012703 110236 
013337 110220 
013737 003114 
012704 110220 
012737 00 
010465 000000 
004737 016340 
016501 000: 
012702 100206 
020102 
001406 
005237 002212 
104456 

451 

567 

136 





MACRO M1113 25-MAY=82 09:19 PAGE 1, 


110120 20$: 


110222 
110226 


5® 


;TEST 8, SUBTEST 2 


[VERIFIES THAT A FORMAT COMMAND WITH AN ib MODE 
3CODE CAUSES Aang oy REJECT TERMINATION WITH THE 

ILLEGAL COMMAND (ILC) ERROR BIT SET. ALL ILLEGAL 
:MODE CODES ARE CHECKED. 


24$: 


ERRHRD 


PC, T28REST 
PC, ieente 
PC, T28RT 


PC, SOF INIT 

208 

FATFLG 

RO,R1 

ERRNO, SFIERR,SFIMSG 


UNITN, T28DSW 
#T28PACKET, R4 
PC ,WRTCHR 


24$ 


FATFLG 
RO,R1 
ERRNO ,,WRTMSG, SF IMSG 


#T2BIMV,R3 
(R3) , T28PK3 


oWA 
TSSR( (RS), R1 
#SSR! SC 18171 '81T2, R2 
R1,R2 


FATFLG 
ERRNO, T28WDF ,PKTSSR 


SEQ 0358 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


TRAP C$B8SUB 
SET COMMAND PACKET 
3SET UP OTHER COMMAND PACKET 
7SET UP OTHER COMMAND PACKET 
D0 INITIALIZE ON CONTROLLER 
:BR S chant WAS OK 


BUMP COUN 

CONTENTS OF TSSR REGISTER 

FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
WORD 807 
eWORD SFIERR 


«WORD SFIMSG 
SET UP DRIVE NUMBER 
;SUBROUTINE NEEDS PACKET ADDRESS 
bb | WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
COUNT 


SSAVE CONTENTS OF TSSR 
[WRITE CHARACTERISTISC FAILED 


TRAP CSERHRD 
-WORD 808 
«WORD WRITMSG 
«WORD SFIMSG 

:LOOP IF SELECTED 
TRAP CSCLP1 

7SET Aye FOR COMMANDS 

SET UP NEXT COMMAND 

STARTING WRITE BUFFER ADDRESS 

7SET UP R4 WITH PACKET ADDRESS 

SET UP RECORD SIZE IN PACKET 

2 ISSUE COMMAND 

WAIT FOR sen tty tite TO SET 

:GET TSSR CONTENTS 

:SET UP EXPECTED 

SARE THEY EQUAL 

:BR, IF OK 

: COUNT 

zTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
«WORD 809 
-WORD T28WDF 


-WORD PKTSSR 


co 
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10652 10552 


10654 105530 


S00000000 
VMI 

PS Srttet 
BAVOHN 


MUIVMIMIMMMA 

Muu MVMMMmuiwi 
VMVMIIMIumw 
CALSNO 


— wet 2 SS oss ss Ss ss YH YY 


Sssssss3ss 


004737 


110130 
001000 


002212 


177777 


002212 
017272 
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000017 


75$: 


180$: 


190$: 


999$: 


CKLOOP 


ERRHRD 


CKLOOP 
CMP 
BNE 
CKLOOP 
ENDSUB 


;LOOP IF SELECTED 
TRAP — C$CLP1 
T2BBERS6, R1 :GET MESSAGE BUFFER 
:SET UP EXPECTED 
waits, R2 ‘SET THE ILC BIT IN EXPECTED 
R1,R2 TARE THEY EQU 
180$ ‘BR, IF EQUAL TALL IS WELL) 
FATFLG BUMP T 
ERRNO, T28L0C, EXPREC STHE ILC BIT WAS NOT SET IN XSTO 
TRAP — 


(R3)+ BUMP TO 
(R3) #177777 
30$ 


carele.a15. 
PC,.CKDROP 


«WORD EXPREC 


TRAP CSELPT 
NEXT ADDRESS (COMMAND) 
3 CHECK ae END OF COMMAND BUFF 
MORE COMMANDS TO TRY 


BR, IF 
LOOP IF SELECTED 


TRAP CSCLP1 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10132: 

C$ESUB 


TRAP 
z1S ERROR COUNT AT 25 
:BR, IF LESS THAN 25 
zTRY TO DROP THE UNIT 


SEQ 0359 


a i eR eae § 
| 7 
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| TEST 8: WRITE/READ TAPE MARK SEQ 0360 

10674 3+ 

10675 ; 

10676 :TEST 8, SUBTEST 3 

10678 [VERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE 

10679 SPROPERLY, AND THAT READ COMMANDS SUBSEQUENTLY ISSUED 
10680 [TO DETECT THE WRITTEN TAPE MARKS TERMINATE WITH TAPE 
10681 :STATUS ALERT WITH THE TAPE MARK DETECTED (TMK) STATUS 
10682 :BIT SET. THE FOLLOWING SEQUENCE IS EXECUTED. 

10684 21, THE CONTROLLER IS INITIALIZED AND TAPE REWOUND. 
10685 : THIS SETS THE VOLUME CHECK (VCK) STATUS BIT. 
10687 32. A WRITE TAPE MARK COMMAND WITH CVC=1 IS ISSUED 
10688 : AND PROPER TERMINATION AND STATUS IS VERIFIED 

M's 7 34 3 (1.£. VCK=0 AND TMK=1). 

10691 33. SEVERAL MORE WRITE TAPE MARK COMMANDS, THESE WITH 
10692 : CVC=0 ARE ISSUED AND PROPER TERMINATION (NORMAL) 
10695 : AND STATUS (TMK) VERIFIED. 

10695 24. A READ REVERSE COMMAND IS ISSUED AND PROPER 
10696 : TERMINATION (TAPE STATUS ALERT) AND STATUS (TMK) 
10697 : VERIFIED. IT IS ALSO VERIFIED THAT NO DATA IS 
10698 : TRANSFERRED INTO MEMORY. 

10700 35. A SPACE RECORDS REVERSE COMMAND IS ISSUED AND 
10701 : PROPER TERMINATION (TAPE STATUS ALERT) AND STATUS 
1070 : (TMK) VERIFIED. 

10704 26. THE TAPE IS REWOUND AND A READ FORWARD COMMAND IS 
10705 : ISSUED AND PROPER TERMINATION (TAPE STATUS ALERT) 
10706 : AND STATUS (TMK) VERIFIED. IT IS ALSO VERIFIED 
10707 : THAT NO DATA IS TRANSFERRED INTO MEMORY. 

10709 :7. A SPACE RECORDS REVERSE COMMAND THAT CONTAINS A 
10710 : RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS 
10711 : VERIFIED THAT TAPE STATUS ALERT TERMINATION 
10712 : OCCURED, TMK=1 AND THAT RBPCR (RESIDUAL 

10713 : BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO 
10714 : VALUE - THIS OPERATION VERIFIES THAT DETECTION OF 
10715 : THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION 
10716 : TO BE PREMATURELY TERMINATED. THIS SHOULD LEAVE 
10717 . : THE POSITION JUST BEFORE THE FIRST RECORD ON 
10719 : 

10720 78. TAPE POSITION IS VERIFIED BY ISSUING ANOTHER 
10721 : SPACE RECORDS REVERSE COMMAND AND VERIFYING THAT 
10722 ; TAPE STATUS ALERT TERMINATION OCCURS, WITH THE 
10728 : REVERSE INTO BOT (RIB) STATUS ERROR BIT SET. 

10725 79. A SPACE RECORDS FORWARD. COMMAND THAT CONTAINS A 
10726 : RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS 
10727 : VERIFIED THAT TAPE STATUS ALERT TERMINATION 
10728 : OCCURED, TMK=1, AND THAT RBPCR (RESIDUAL 

10729 ; BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO 
10730 : VALUE. THIS OPERATION VERIFIES THAT DETECTION OF 
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TEST 8: WRITE/READ TAPE MARK SEQ 0361 
10731 3 THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION 
10732 $ TO BE PREMATURELY TERMINATED. 
10733 ; 
10734 3 
10735 ; 
10736 3 
10737 : 
10738 r 
10739 :- 
10740 105610 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
105610 78.3: 
105610 104402 TRAP c$BsuB 
10741 105612 004737 112156 JSR PC, T28REST ;SET COMMAND PACKET 
10742 105616 004737 112250 JSR PC, T28RT2 “SET ee OTHER COMMAND PACKET 
10743 105622 004737 112312 JSR PC, T28RT3 ‘SET UP OTHER COMMAND PACKET 
10744 105626 alert 023420 110262 MOV #10000. , T28DLY sSET UP DELAY ROUTINE 
10745 105634 0047 016064 10$: JSR PC,SOFINIT :D0 ie oma? ta ON CONTROLLER 
10746 105640 TET BCS 20$ ‘BR IF INIT K 
10747 105642 DELAY 250 ; DELAY ABOUT” 435 SECONDS 
105642 012727 000250 MOV #250, (PC)+ 
105646 000000 -WORD 0 
105650 013727 002116 MOV LSDLY,(PC)+ 
105654 000000 «WORD 0 
105656 005367 177772 DEC -6(PC) 
105662 001375 BNE -- 
105664 5367 177756 DEC =22(PC) 
105670 001367 “ 720 
10748 105672 005337 110262 DEC T28DLY BUMP DELAY ROUTINE D 
10749 105676 001356 BNE 10$ 37BR, IF MORE DELAY TIME LEFT 
10750 105700 005237 002212 INC FATFLG ‘BUMP COUNT 
10754 105704 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
10755 105706 ERRDF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
105706 104455 TRAP CSERDF 
105710 001453 -WORD 811 
105712 003650 -WORD SFIERR 
105714 012124 -WORD SFIMSG 
10756 105716 013737 002172 110120 20$: MOV UNITN, T28DSW ;SET UP DRIVE NUMBER 
10757 105724 012704 110109 MOV #T28PACKET, R4 + SUBROUT INE NEEDS PACKET ADDRESS 
10758 105730 004737 010752 JSR PC,WRICHR + ISSUE WRITE CHARACTERISTICS 
10759 105734 103407 BCS 23$ 3BR, IF COMMAND ISSUED OK 
10760 105736 005237 002212 INC FATFLG ; 
10764 105742 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
10765 105744 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
105744 104456 TRAP CSERHRD 
105746 001454 -WORD 812 
105750 005054 «WORD WRTMSG 
105752 012124 -WORD SFIMSG 
10766 105754 238: CKLOOP ;LOOP IF SELECTED 
105754 104406 TRAP CSCLP1 
10767 105756 004737 011104 JSR PC, REWIND ;CALL TAPE REWIND COMMAND 
0768 105762 103411 BCS 30 :BR, IF NO PROBLEM 
10769 105764 016501 000002 MOV TSSR(RS),R1 GET TSSR 
10770 105770 010004 Boy RO, “_ SAVE PACKET ADDRESS 
10771 105772 005237 002212 INC 3 
10775 105776 ERRHRD ERRNO” T28RWN,PKTSSR sREWIND NOT ACCEPTED 
105776 104456 CSERHRD 
106000 001455 -WORD 813 
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106002 
106004 
10776 106006 
06006 


06066 
06072 


So 
WNNNN-—— a 


NN NAAAQDAMMUIUIUTE & o 
SRAISTVSSRNNYSRASNRNNVS RVR 


SRRRRRRRRRSRRRRRRRRRRRSRRSESRES 


Mrn 
S2S8 
&nror 


111211 
012136 


005237 
104456 


005237 
104456 


010001 
104456 


012124 








TSV7 = HARDWARE TESTS 1-8 
TEST 8: WRITE/READ TAPE MARK 


110130 
000002 


002212 


002216 


016426 


002212 


000007 
110100 
010752 


002212 


000002 
000100 


002212 


110120 


30$: 


50$: 


60$: 


65$: 


CKLOOP 


ERRHRD 


CKLOOP 


I 
ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 


CKLOOP 
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T28BFR+6,R1 
#B1T1,R2 
R1,R2 


FATFLG 
ERRNO, T28B0T ,EXPREC 


EXTFEA 
#200, 128881 
1 B 


PC, CHKTSSR 

50$ 

RO,R1 

FATFLG 

ERRNO, T28SSR,PKTSSR 


‘s 


T28DSW 
ATSBPACKET, R4 
PC, WRTCHR 


60$ 

FATFLG 

RO,R1 

ERRNO ,WRTMSG,SF IMSG 


TSSR(R5),RI 
#OFL,R1 


FATFLG 
ERRNO, T280FL,SF IMSG 


SEQ 0362 

«WORD T28RWN 
«WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

sPICK UP_XxSsTO 

4} UP _ EXPECTED 

ise! « a ate’p EXPECTED 

R, IF “EQUAL (OK) 

TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 814 
«WORD T28B0T 
«WORD EXPREC 


LOOP IF SELECTED 
cSCLP1 


TRA 

CHECK FOR on te tee FEATURES Sw SWITCH 

7BR IF SWITCH IS 

WRITE MISCELLANEOUS CONT/READ STATUS 
UNC. SEL. BIT (TURN ON EXTFEA SWITCH) 

URITE SUBSYS MEM PACKET 

; ISSUE _COMMAN 


2BR, NO ER 

Z ERROR — TSSR 

:TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHRD 


WORD: 815 
-WORD T28SSR 
«WORD PKTSSR 
LOOP IF SELECTED 
TRAP CSCLP1 
3SET UP _DRIVE NUMBER 
ee uart NEEDS PACKET ADDRESS 


ISSUE WRITE CHARACTERISTICS 
BR. IF COMMAND ISSUED OK 
COUNT 


7SAVE CONTENTS OF TSSR 
SWRITE CHARACTERISTISC os 


_ CSERHRD 
MGoRD 816 
“WORD  WRTMSG 
“WORD SFIMSG 


SCOPE LOOP 
TRAP CSCLP1 
GET TSSR CONTENTS 
CHECK FOR THE OFFLINE BIT SET 
:BR, e on (GOOD) 


BUMP COUNT 
2 OFF LINE SHOULD HAVE ore get (BAD) 


CSERDF 
TOR D 17 
WORD T280FL 
-WORD SFIMSG 


LOOP IF SELECTED 


—_———_ --—-—j 


a oe ae ee ee oe ee ee oe er ee ee ee ee ten nr ae sg r 


| 8 13 | 
TSV7 = HARDWARE TESTS 1-8 MACRO M1113 25-MAY=82 09:19 PAGE 152-3 
TEST 8: WRITE/READ TAPE MARK SEQ 0363 
| 
106212 164406 TRAP  C$CLP1 
10823 106214 013737 002172 110120 MOV UNITN, T28DSW :SET UP DRIVE NUMBER 
10824 106222 012704 110100 MOV #T2BPACKET RG ‘SUBROUTINE NEEDS PACKET ADDRESS 
10825 106226 004737 010752 JSR PC, WRTCHR TISSUE WRITE CHARACTERISTICS 
10826 106232 103407 BCS 68$ ‘BR, IF COMMAND ISSUED OK 
10827 106234 005237 002212 INC FATFLG : COUNT 
10831 106240 010001 MOV RO,R1 ZSAVE CONTENTS OF TSSR 
10832 106242 ERRHRD ERRNO,WRTMSG, SFIMSG SWRITE CHARACTERISTISC FAILED 
106242 104456 TRAP  CSERHRD 
106244 001462 .WORD 818 
106246 005054 “WORD WRTMSG 
106250 012124 “WORD SFIMSG 
10833 106252 68$:  CKLOOP sLOOP IF SELECTED 
106252 104406 TRA CSCLP1 
10834 106254 012737 140011 110220 MOV #140011, T28PK3 ZWRITE TAPE MARK,ACK,CVC=1 ACOMMAMD 
10835 106262 012704 110220 MOV #728P SSET UP R4 WITH PACKET ADDRESS 
10836 106266 010465 000000 MOV Ree TSBiRS) S ISSUE COMMAND 
10837 106272 004737 016340 JSR PC.WAITF [WAIT FOR SSR TO SET 
10838 106276 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 
10839 106302 012702 000200 MOV R2 ZSET UP EXPECTED 
0840 106306 020102 CMP R1,Re TARE THEY EQUAL 
10841 106310 001406 BEQ 70$ 7BR, IF O 
10842 106312 005237 002212 INC FATFLG BUMP COUNT 
0846 106316 ERRHRD ERRNO, T28WDC,PKTSSR :TSSR INCORRECT AFTER WRITE TAPE MARK 
106316 104456 TRAP CSERHAD 
106320 001463 .WORD 819 
106322 111333 “WORD T28wD 
106324 012136 “WORD PET Son 
10847 106326 70$:  CKLOOP :LOOP IF SELECTED 
106326 104406 TRAP _— CS$CLP1 
10848 106330 013701 110130 MOV T28BFR+6,R1 sPICK UP_XSTO (VCK CHECK) 
10849 106334 010102 MOV R1,R2 :SET UP EXPECTED 
10850 106336 042702 000020 BIC #BITE,R2 :VCK SHOULD BE 0 
10851 106342 020102 CMP R1,R2 :1$ VCK SET CORRECTLY 
10852 106344 001406 BEQ 80$ ‘BR, IF VCK IS CLEAR 
10853 106346 005237 002212 INC FATFLG : COUNT 
10857 106352 ERRHRD ERRNO, T28VCK,EXPREC ZVCK WAS NOT CLEAR AFTER CVC=1 
106352 104456 TRAP  CSERHRD 
106354 001464 «WORD 820 
106356 111412 “WORD T28VCK 
106360 015564 .WORD EXPREC 
10858 106362 80$:  CKLOOP :LOOP IF SELECTED 
106362 104406 RAP  — C$CLP1 
10859 106364 013701 110130 MOV T28BFR+6,R1 :PICK UP XSTO (CHECK TMK) 
10860 106370 010102 MOV R1,R2 :SET UP EXPECTED 
10861 106372 052702 100000 BIS #BiT15,R2 7TMK SHOULD BE SET 
1086¢ 106376 020102 CMP R1,R2 [WAS TMK SET 
10863 106400 001406 BEQ 90$ :BR. IF TMK WAS SET 
10864 106402 005237 002212 INC FATFLG c 
10868 106406 ERRHRD ERRNO, T28TMK,EXPREC S TMK WAS NOT SET AFTER WRT TAPE MARK 
106406 104456 TRAP — CSERHRD 
106410 001465 .WORD 821 
106412 111465 “WORD T28TMK 
106414 015564 <WORD EXPREC 
10869 106416 90$:  CKLOOP sLOOP IF SELECTED 
106416 104406 TRAP — CS$CLP1 
10870 106420 004737 011104 JSR PC,REWIND ZCALL TAPE REWIND COMMAND 
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10871 106424 103411 BCS 130$ :8R, IF NO PROBLEM 

10872 106426 010004 MOV RO,R4 + SAVE PACKET ADDRESS 

10873 106430 016501 000002 MOV TSSR(RS),R1 GET TSSR STATUS 

10874 106434 005237 002212 INC FATFLG COUNT 

10878 106440 ERRHRD ERRNO, T28RWN,PKTSSR {REWIND NOT ACCEPTED 
106440 104456 TRAP  CSERHRD 
106442 001466 «WORD 822 
106444 111211 “WORD T2SRWN 
106446 012136 “WORD PKTSSR 

10879 106450 130$:  CKLOOP :LOOP IF SELECTED 
106450 104406 TRAP — C$CLP1 

10880 106452 013701 110130 MOV T2BBFR+6,R1 :PICK UP XSTO 

10881 106456 010102 MOV R1,R2 3SET UP EXPECTED 

10882 106460 052702 000002 BIS #BIT1,R2 :SET BOT BIT IN. EXPECTED 

10883 106464 020102 CMP R1,R2 TDOES EXP = REC' 

10884 106466 001406 BEQ 140$ <BR, IF EQUAL (OK) 

10885 106470 005237 002212 INC FATFLG [BUMP COUNT 

10889 106474 ERRHRD ERRNO, T28B0T, EXPREC [TAPE NOT AT BOT AFTER REWIND 
106474 104456 TRAP  CSERHRD 
106476 001467 «WORD 823 
106500 111067 “WORD T28BOT 
106502 015564 -WORD EXPREC 

10890 106504 140$:  CKLOOP :LOOP IF SELECTED 
106504 104406 TRA CSCLP1 

10891 106506 012703 000012 150$: MOV #10. .R3 ZNUMBER OF RECORDS TO URITE’ TM 

10892 106512 012737 140011 110220 MOV 7140011, T28PK3 [WRITE TAPE MARK,ACK,CVC=1 COMMAND 

10893 106520 012704 110220 MOV #T2BPK3._RG 3SET UP _R& WITH PACKET ADDRESS 

0894 106524 010465 000000 155$: MOV R4, TSDB(RS) UE COMMAND 

10895 106530 004737 016340 JSR PC.WAITF ‘WAIT FOR SSR TO SET 

10896 106534 016501 000002 MOV TSSR(RS) RI :PICK UP TSS 

10897 106540 012702 000200 MOV #SSR,R2 [SET UP EXPECTED (SSR ONLY) 

10898 106544 020102 CMP R1,R2 [WAS STATUS GOOD 

10899 106546 001406 BEQ 165$ [BR, IF TERMINATION WAS GOOD 

10900 106550 005237 002212 INC FATFLG A) T 

10904 106554 ERRHRD ERRNO, T28WDC,PKTSSR STSSR NOT CORRECT AFTER WRT TAPE M. 
105554 104456 TRAP  C$ERHRD 
106556 001470 «WORD 824 
106560 111333 “WORD T28wWDC 
106562 012136 “WORD PKTSSR 

10905 106564 165$:  CKLOOP :LOOP IF SELECTED 
106564 104406 TRAP _— C$CLP1 

10906 106566 013701 110130 MOV T28BFR+6,R1 :PICK UP XSTO 

10907 106572 010102 MOV R1,R2 7SET UP EXPECTED 

10908 106574 052702 100000 BIS #BIT15,R2 [SET TMK BIT IN EXPECTED 

10909 106600 020102 CMP R1,R2 [DOES EXP = REC'D 

10910 106602 001406 BEQ 180$ BR, IF EQUAL fo) 

10911 106604 005237 002212 INC FATFLG [BUMP COUNT 

10915 106610 ERRHRD ERRNO, T28TMK,EXPREC [TMK NOT SET AFTER WRT TAPE MARK 
106610 104456 TRAP  CSERHRD 
106612 001471 «WORD 825 
106614 111465 “WORD T28TMK 
106616 015564 .WORD EXPREC 

10916 106620 180$:  CKLOOP :LOOP IF SELECTED 
106620 104406 TRAP — C$CLP1 

10917 106622 005303 DEC R3 ;BUMP COUNTER D 

10918 106624 001337 BNE 155$ ‘BR, IF LESS oa 10 TAPE MARKS 

10919 106626 012700 177777 MOV #177777 ,R0 [VALUE TO WRITTEN TO MEMORY 
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10920 106632 
10921 


017512 


100204 


002212 


110130 
100000 


002212 


074126 
177777 


002212 


100410 


100204 


002212 
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J 
110222 MOV 
110220 MOV 


110226 MOV 


INC 
ERRHRD 


200$: CKLOOP 


210$: CKLOOP 


INC 
ERRHRD 


220$: CKLOOP 


ERRHRD 





PC, FILLMEM 
FREE, T28WB 
#160601, 128PK3 
#T28PK3_RG 
20. , T2882 

R4, TSDB(RS) 

PC; WAITF 
TSSR(R5) RI 
#SSR'SC!BIT2,R2 
R1,R2 

200$ 


FATFLG 
ERRNO, T28RDF ,PKTSSR 


T28BFR+6,R1 
R1,R 
ae 


FATFLG 
ERRNO, T28RRM,EXPREC 


@FREE,R1 
#177777,R2 
R1,R2 


FATFLG 
ERRNO, T28DTR,EXPREC 


#100410, T28PK3 
#1,T28R 


aT SBE KS R4 

R4, TSDB(RS) 
PCW WAITF 
TSSR(RS), 

assnis¢ 6112, R2 
R1,R2 


2228 


FATFLG 
ERRNO, T28RDG,PKTSSR 


a = 


SEQ 0365 


sFILL MEM WITH ALL ONES 
zSTARTING READ he ADDRESS 
READ REVERSE,ACK, COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
SET UP RECORD SIZE IN PACKET 
2 ISSUE COMMAND 


WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
2SET UP EXPECTED 

2 ARE st a 


76 COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
CSERHRD 


826 
-WORD T28RDF 
«WORD PKTSSR 
sLOOP IF SELECTED 


TRAP CSCLP1 
sPICK UP XSTO 
:SET UP EXPECTED 
oTe Ti oer BE SET 


MK 

:BR. IF THK WAS SET (GOOD) 
[TMK NOT SET AFTER READ REV 
TRAP 


CSERHRD 
«WORD 827 
-WORD T28RRM 
«WORD EXPREC 
LOOP IF SELECTED 


RAP 
sFIRST LOC IN READ ok tak 
EXPECTED IF NO DAT ANS. 
:DID ANY DATA GET TRANSFERRED 
BRIE NO DATA TRANS (GOOD) 


: COUNT 

sDATA TRANSFERRED ON READ TAPE MARK 
TRAP CSERHRD 
WORD 828 


-WORD T28DTR 
«WORD EXPREC 


CSCLP1 


sLOOP IF SELECTED 


CSCLP1 
3SPACE REVERSE ..ACK, COMMAND 
NUMBER OF RECORDS TO SPACE BACK 
2SET UP R4 WITH PACKET ADDRESS 
71S COMMAND 


sWAIT FOR SSR TO SET 

GET TSSR CONTENTS 

:SET UP EXPECTED 

ARE THEY EQUAL 

: . IF OK 

;BUMP COUNT 

:TSSR INCORRECT AFTER SPACE CMD. 

TRAP CSERHRD 
WORD 829 
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TEST 8: WRITE/READ TAPE MARK SEQ 0366 
107070 110505 .WORD T28RDG 
107072 012136 “WORD PKTSSR 

10972 107074 222$:  CKLOOP ZLOOP IF SELECTED 
107074 104406 TRAP C$CLP1 

10973 107076 013701 110130 MOV T28BFR+6,R1 :PICK UP XSTO 

10974 107102 010102 MOV R1,R2 :SET UP EXPECTED 

10975 107104 052702 100000 BIS #BIT15,R2 :TMK SHOULD BE SET 

10976 107110 020102 CMP R1,R2 :1S TMK SET 

10977 107112 001406 BEQ 226$ 7BR, IF TMK WAS SET (GOOD) 

10978 107114 005237 002212 INC FATFLG [BUMP COUNT 

10982 107120 ERRHRD ERRNO, T28RRN,EXPREC ‘TMK NOT SET AFTER SPACE REV 
107120 104456 TRAP  CSERHRD 
107122 001476 .WORD 830 
1071246 111615 “WORD T28RRN 
107126 015564 .WORD EXPREC 

10983 107130 226$:  CKLOOP :LOOP IF SELECTED 
107130 104406 TRAP C$CLP1 

10984 107132 004737 011104 JSR PC REWIND CALL TAPE REWIND COMMAND 

10985 107136 103411 BCS 230$ IF NO PROBLEM 
107140 010 MOV RO,R4 <BAVE PACKET ADDRESS 

10987 107142 016501 000002 MOV TSSR(RS) RI :GET T SSR 

10988 107146 005237 002212 INC FATFL COUNT 

10992 107152 ERRHRD ERRNO, T28RWN,PKTSSR ‘REWIND NOT ACCEPTED 
107152 104456 TRAP  CSERHRD 
107154 001477 .WORD 831 
107156 111211 “WORD T28RWN 
107160 012136 “WORD PKTSSR 

10993 107162 230$:  CKLOOP :LOOP IF SELECTED 
107162 104406 TRAP — CSCLP1 

10994 107164 013701 110130 MOV T2BBER*6, R1 :PICK UP XSTO 

10995 107170 010102 MOV 1,R2 7SET UP EXPECTED 

1099 107172 052702 000002 BIS oaiti. R2 ‘SET BOT BIT IN EXPECTED 

10997 107176 020102 CMP R1,R2- [DOES EXP = REC'D 

10998 10720C 001406 BEQ EY ZBR, IF EQUAL (OK) 

10999 107202 005237 002212 INC FATFLG ‘BUMP COUNT 

11003 107206 ERRHRD ERRNO, T28B0T,EXPREC :TAPE NOT AT BOT AFTER REWIND 
07206 104456 TRAP CSERHRD 
107210 001500 «WORD 832 
107212 111067 “WORD T28BOT 
107214 015564 -WORD EXPREC 

11004 107216 240$:  CKLOOP ;LOOP IF SELECTED 
107216 104406 TRAP — CSCLP1 

11005 107220 012700 177777 MOV #177777,R0 :VALUE TO WRITTEN TO MEMORY 

11006 107224 004737 017512 JSR PC, FILLMEM ‘FILL MEM WITH ALL ONES 

11007 107230 013737 003114 110222 MOV FREE, TO8RB 3STARTING READ BUFFER ADDRESS 

11008 107236 012737 100001 110220 MOV #100001. 126PK3 TREAD F D,ACK, COMMAND 

11009 107244 012704 110220 MOV PK3.R 7SET UP R4 WITH PACKET ADDRESS 

11010 107250 013737 000024 110226 MOV 50° es tse [SET UP RECORD SIZE IN PACKET 

11011 107256 010465 000000 MOV R4, TSDB(RS) :1 COMMAND 

11012 107262 004737 016340 JSR PC. WAITF ‘WAIT FOR SSR TO SET 

11013 107266 016501 000002 MOV TSSR(R5),R1 :GET TSSR CONTENTS 

11014 107272 012702 100204 MOV #SSR'SC'BIT2,R2 [SET UP EXPECTED 

11015 107276 020102 CMP R1,R2 TARE THEY EQUAL 

11916 107300 001406 BEQ 245$ 7BR, IF OK 

11017 107302 005237 002212 INC FATFLG [BUMP COUNT 

11021 107306 ERRHRD ERRNO, T2@WDE.PKTSSR :TSSR INCORRECT AFTER WRITE DATA 


107306 104456 TRAP CSERHRD 
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107310 061501 .WORD 833 
107312 110776 “WORD T2BWDE 
107314 012136 “WORD PKTSSR 

11022 107316 245$:  CKLOOP ;LOOP IF SELECTED 
107316 104406 TRAP  C$CLP1 

11023 107320 013701 110130 MOV T28BFR+6,R1 :PICK UP XSTO 

11024 107324 010102 MOV R1,R2 iSET UP EXPECTED 

11025 107326 052702 100000 BIS #BiT15,R2 MK SHOULD BE SET 

11026 107332 020102 CMP R1,R2 Ts TMK 

11027 107334 001406 BEQ 247$ :BR, IF TMK WAS SET (GOOD) 

11028 107336 005237 002212 INC FATFLG : 

11032 107342 ERRHRD ERRNO, T28RRP,EXPREC [TMK NOT SET AFTER READ REV 
107342 104456 TRAP  CSERHRD 
107344 001502 .WORD 834 
107346 111674 “WORD T28RRP 
107350 015564 -WORD EXPREC 

11033 107352 247$:  CKLOOP ;LOOP IF SELECTED 
107352 104406 TRA CS$CLP1 

11034 107354 017701 073534 MOV aFREE,R1 FIRST LOC IN READ BUFFER 

11035 107360 012702 177777 MOV #177777,R2 ZENPECTED IF NO DATA TRANS. 

11036 107364 020102 CMP R1,R2 DID ANY DATA GET TRANSFERRED 

11037 107366 001406 BEQ 250$ “BR, IF NO DATA TRANS (GOOD) 

11038 107370 005237 002212 INC FATFLG SBUMP COUNT 

11042 107374 ERRHRD ERRNO, T28DTR,EXPREC ZDATA TRANSFERRED ON READ TAPE M4RK 
107374 104456 TRAP  CSERHRD 
107376 001503 «WORD 835 
107400 111752 “WORD 128DTR 
107402 015564 “WORD E,‘PREC 

11043 107404 250$:  CKLOOP :LOOP IF SELECTED 
107404 104406 TRAP — CSCLP1 

11044 107406 012737 100410 110220 MOV #100410, T28PK3 ZSPACE REVERSE,ACK, COMMAND 

11045 107414 012737 000005 110222 MOV #5, 728RB [NUMBER OF RECORDS TO SPACE BACK 

11046 107422 012704 110220 MOV #T2BPK3,RG [SET UP R4 WITH PACKE; ADDRESS 

11047 107426 010465 000000 MOV R4, TSDB(RS) 3 ISSUE COMMAND 

11048 107432 004737 016340 JSR PC. WAITF [WAIT FOR SSR TO SET 

11049 107436 016501 000002 MOV TSSR(R5) RI [GET TSSR CONTENTS 

11050 107442 012702 100204 MOV #SSR!SC!BIT2,R2 :SET UP EXPECTED 

11051 107446 020102 CMP R1,R2 TARE THEY EQUAL 

11052 107450 001406 BEQ 260$ :BR, IF OK 

11053 107452 005237 002212 INC FATFLG [BUMP COUNT 

11057 107456 ERRHRD ERRNO, T28RDG,PKTSSR [TSSR INCORRECT AFTER SPACE REV CMD. 
107456 104456 TRAP CSERHRD 
107460 001504 .wORD 8 
107462 110505 “WORD  T28RDG 
107464 012136 “WORD PKTSSR 

11058 107466 260$:  CKLOOP :LOOP IF SELECTED 
107466 104406 TRAP — CS$CLP1 

11059 107470 013701 110130 MOV T28BFR+6,R1 :PICK UP XSTO 

11060 107474 010102 MOV R1,R2 :SET UP EXPECTED 

11061 107476 052702 100000 BIS #BiT15,R2 MK SHOULD BE SET 

11062 107502 020102 CMP R1,R2 ‘Ts TMK SET 

11063 107504 001406 BEQ 270$ ‘BR, IF TMK WAS SET (GOOD) 

11064 107506 005237 002212 INC FATFLG 38 T 

11068 107512 ERRHRD ERRNO, T28RRN,EXPREC [TMK NOT SET AFTER READ REV 
107512 104456 TRAP  CSERHRD 
107514 001505 WORD ? 


8 
107516 111615 -WORD T28RRN 
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270$: CKLOOP 


ERRHRD 


290$: CKLOOP 


C 
ERRHRD 


300$: CKLOOP 


ERRHRD 
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T28BFR+4,R1 


FATFLG 
ERRNO, T28PBP,EXPREC 


tye ae ~128PK3 

+T3BeRS RG 

R4, TSDB(RS) 

PC; WAITE 

TSSR(RS) RI 

#SSR3SC!BIT2, R2 
R2 

2905. 


ERRNO. T2BRDG,PKTSSR 


T28BFR+14,R1 
#BITO,R2 
R1,R2 


FATFLG 
ERRNO, T28RIB,EXPREC 


2100010. T28PK3 
#5, 128R8 


#T2BPK3_RG 

R4, TSDB(RS) 

PC. WAITF 
TSSR(R5) RI 
#SSRISC!BIT2, .R2 


#108 
FATFLG 
ERRNO, T28RDF ,EXPREC 


«WORD EXPREC 
LOOP IF SELECTED 
TRAP CSCLP1 


sPICK UP RESIDUAL BYTE COUNTER 
sSHOULD BE y: * DIFFERENCE 

21S COUNTER CORRECT 

BR, IF COUNTER CORRECT 

BUMP C 


OUNT 
RESIDUAL BYTE COUNTER a eae 3 


CSERHRD 
GORD 838 
“WORD T28PB8P 
«WORD EXPREC 
LOOP IF SELECTED 
TRAP CSCLP1 


2SPACE REVERSE ,ACK, COMMAND 
NUMBER OF RECORDS TO SPACE BACK 
SET UP R4 WITH PACKET ADDRESS 

3 ISSUE COMMAND 
;WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

2SET UP EXPECTED 

sARE THEY EQUAL 


: COUNT 
zTSSR INCORRECT AFTER SPACE CML. 


TRAP CSERHRD 
-WORD 839 
-WORD T28RDG 
«WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP XST3 
SET UP EXPECTED 
:RIB ae BE SET 
. IF he WAS SET (GOOD) 
RIB NOT SET AFTER READ REV 
TRAP CSERHRD 
-WORD 840 
-WORD T28RIB 
«WORD EXPREC 
LOOP IF SELECTED 
CSCLP1 


2SPACE FORWARD,ACK, COMMAND 
NUMBER OF RECORDS TO SPACE FORW. 
7SET UP R4 WITH PACKET ADDRESS 

2 ISSUE COMMAND 


UE 
WAIT FOR SSR TO SET 
2GET TSSR CONTENTS 
2SET UP EXPECTED 
sARE THEY EQUAL 
IF OK 


. 
a a 
. 


: COUNT 
:TSSR INCORRECT AFTER SPACE CMD. 
TRAP CSERHRD 


SEQ 0368 
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| TEST 8: WRITE/READ TAPE MARK SEQ 0369 
| 
107746 061511 .WORD 841 
107750 110424 “WORD T28ROF 
107752 015564 «WORD EXPREC 
| 11120 107754 310$:  CKLOOP :LOOP IF SELECTED 
107754 104406 TRAP  C$CLP1 
11121 107756 013701 110130 MOV T28BFR+6,R1 :PICK UP XSTO 
11122 107762 010102 MOV : :SET UP EXPECTED 
11123 107764 052702 100000 BIS #BIT15,R2 7TMK SHOULD BE SET 
11124 107770 020102 CMP R1,R2 71S TMK SET 
11125 107772 001406 BEQ 326$ :BR, IF TMK WAS SET (GOOD) 
11126 107774 005237 002212 INC FATFLG 7B T 
41130 110000 ERRHRD ERRNO, T28RRP,EXPREC [TMK NOT SET AFTER READ REV 
110000 104456 TRAP  CSERHRD 
110002 001512 «WORD 842 
110004 111674 “WORD T28RRP 
110006 015564 -WORD EXPREC 
11131 110010 320$:  CKLOOP :LOOP IF SELECTED 
110010 104406 RAP —- CSCLP1 
11132 110012 013701 110126 MOV T2BGFR+4,R1 sPICK UP RESIDUAL BYTE COUNTER 
11133 110016 012702 000004 MOV #4. R2 SSHOULD BE THE DIFFERENCE 
11134 110022 020102 CMP R1,R2 Z1S COUNTER CORRECT 
11135 110024 001406 BEQ 330$ :BR, IF COUNTER CORRECT 
11136 110026 005237 002212 INC FATFLG : COUNT 
11140 110032 ERRHRD ERRNO, T28PBP,EXPREC ZRESIDUAL BYTE COUNTER NOT CORRECT 
110032 104456 TRAP  C$ERHRD 
110034 001513 : 843 
110036 110341 .WORD T28PBP 
110040 015564 -WORD EXPREC 
11141 110042 330$:  CKLOOP :LOOP IF SELECTED 
110042 104406 TRAP — CSCLP1 
11142 110044 ENDSUB 3<KKKK KKK END SUBTEST >>>>>>>>>>> 
110044 L10133: 
110044 104403 TRAP CSESUB 
11143 110046 023727 002212 000017 CMP FATFLG,#15. z1S ERROR COUNT AT 25 
11144 110054 103402 BLO 999$ :BR, IF LESS THAN 25 
11145 110056 004737 017272 JSR PC, CKDROP :TRY TO DROP THE UNIT 
11144 110062 999$: 
11147 : 
11149 
11150 110062 004737 016546 JSR PC, TSTLOOP :D0 WE NEED TO ITERATE TEST 
11151 110066 103002 BCC 163$ :BR, IF NO LOOP REQUIRED 
11152 110070 000137 104750 JMP T28LO0P SEXECUTE AGAIN 
11153 110074 163$: 
11154 110074 EXIT TST yALL DONE THIS TEST 
110074 104432 TRAP  CSEXIT 
110076 002236 «WORD 110130-. 


(a 


143 
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| TEST 8: WRITE/READ TAPE MARK SEQ 0370 
11156 i+ 
11157 [LOCAL STORAGE FOR THIS TEST 
1116¢ 110100 T28PACKET: : COMMAND PACKET FOR TEST 
11163 110100 100004 .WORD 100004 [WRITE CHARACTERISTICS COMMAND, WITH IE, ACK 
11164 110102 110110 “WORD T2BDATA SADDRESS OF CHARACTERISTICS BLOCK 
11165 110104 000000 "WORD 0 
11166 110106 000012 ‘wORD 10. ZSTARTING VALUE OF BLOCK SIZE 
11167 110110 T28DATA: [CHARACTERISTICS DATA BLOCK 
11168 110110 110122 .WORD T28BFR SADDRESS OF MESSAGE BUFFER 
11169 110112 000000 “WORD 0 
11170 110114 000024 [WORD 20. :LENGTH OF MESSAGE BUFFER 
11171 110116 000000 “WORD 0 
11172 110120 T28DSW: .WORD 0 :SELECT DRIVE 0 
11178 110122 T28BFR: .BLKW 25. [MESSAGE BUFFER 
11175 [WRITE SUBSYSTEM MEMORY COMMAND PACKET 
11178 110210 .=<.+10>8177770 
11180 110210 T28PK2: 
11181 110210 100006 .WORD 100006 :WRITE SUB SYS MEM COMMAND, IE AND ACK 
11182 110212 110230 “WORD T288F2 TADDRESS OF SELECT BLOCK DATA 
11183 110214 000000 “wORD 0 
11184 110216 000006 “WORD 6. zSIZE OF DATA PACKET 
11189 110220 T28PK3: 
11190 110220 100005 .WORD 100005 ;REREAD COMMAND, AND ACK 
11191 110222 T28RB: 
11192 110222 003114 T28WB: .WORD FREE ZADDRESS OF WRITE BUFFER 
11193 110224 000000 "WORD 0 
11194 110226 000000 T28SZ: :WORD 0 :SIZE OF BUFFER (EXTENT) 
11195 EVEN 
11196 3 
11197 : 
11198 : 
11199 110230 T28BF 2 
11200 110230 010 128880: .BYTE 10 :BSELO AREA 
11201 110231 200 T28BS1: .BYTE 200 TBSEL1 AREA 
11202 110232 000000 T28S2: .WORD 0 [SEL 2 AREA 
11205 110234 000000 12883: .WORD 0 [DATA AREA 
11205 ; 
11206 EVEN 
11207 ; TAPE MOTION PACKET COMMAND VALUES 
11209 110236 T281MV: 
11210 110236 101411 .WORD 101411 ZILLEGAL MODE BITS TEST DATA 
11211 110240 102011 "WORD 102011 
11212 110242 103411 "WORD 103411 
11213 110244 177777 "WORD 177777 
11214 110246 100011 T28RN: <WORD 100011 ;WRITE TAPE MARK COMMAND 
11215 110250 100411 T28WDR: .WORD 100411 TERASE COMMAN 
11216 110252 101011 T2BCON: .WORD 101011 [WRITE TAPE MARK RETRY 
11217 110254 177777 “WORD 177777 SEND OF DATA 
11219 F} 
11220 110256 000000 T28CNT: .WwORD 0 ;TAPE TIMER COUNTER STORAGE AREA 





= HARDWARE TESTS 1-8 
8: WRITE/READ TAPE MARK 


221 110260 060000 
$56 110262 000000 
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T28CNU: .WORD 0 
T28DLY: .WORD 0 
EVEN 


TAPE TIMER C 
;DELAY COUNTE 


_ R STORAGE AREA 


SEQ 0371 
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| TEST 8: WRITE/READ TAPE MARK SEQ 0372 
| 11226 
| 11227 id 
/ 11228 sLOCAL TEXT MESSAGES FOR TEST 
| 11229 :- 
Mets 
11232 110264 124 141 160 T28RIB: .ASCIZ ‘Tape Position Not Correct, RIB Should Be Set’ 
112335 110341 122 145 163 T28PBP: .ASCIZ ‘Residual Byte Counter oop" eer (RBPCR) Not Correct’ 
11234 110424 124 123 123 T28RDF: .ASCIZ ‘TSSR Incorrect After READ REVERSE Into TAPE MARK‘ 
11235 110505 124 123 123 T28RDG: .ASCIZ ‘TSSR Incorrect After SPACE Command Into TAPE MARK’ 
11236 110567 124 123 123 T28WDF: .ASCiZ ‘ISSR Not Correct After Illegal Mode Bits Set’ 
11237 110644 111 154 154 T28L0Q: .ASCIZ ‘Illegal Mode Bits, Failed To Set ILC Bit In xXSTO' 
11238 110725 127 122 117 T28SSR: .ASCIZ ‘WRITE MISCELLANEOUS Command Not Accepted’ 
11239 110776 124 123 123 T28WDE: .ASCIZ ‘TSSR Not Correct After READ DATA Command, Into TAPE MARK‘ 
11240 111067 124 141 160 T28BOT: .ASCIZ ‘Tape Not At BOT After REWIND Command’ : 
11241 111134 124 123 123 T28TM: .ASCIZ ‘TSSR Not Correct After FORMAT Command Reject’ 
11242 111211 122 145 167 T28RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
11243 111260 104 162 151 T280FL: .ASCIZ ‘Drive 7 Select Failed To Set ‘OFL’’ In TSSR’ 
11244 111333 124 123 123 T28WDC: .ASCIZ ‘TSSR Not Correct After WRITE TAPE MARK Command’ 
11245 111412 103 126 103 T28VCK: .ASCIZ ‘CVC Set, Didn’'t Reset VCK In Message Buffer’ 
11246 111465 124 115 113 T28TMK: .ASCIZ ‘TMK Not Set After WRITE TAPE MARK Command’ 
11247 111537 124 115 113 T28RRM: .ASCIZ ‘TMK Not Set After READ REVERSE Into TAPE MARK’ 
11248 111615 124 115 113 T28RRN: .ASCIZ ‘TMK Not Set After SPACE REVERSE Into TAPE MARK’ 
11249 111674 124 115 113 T28RRP: .ASCIZ ‘TMK Not Set After READ FORWARD Into TAPE MARK‘ 
11250 111752 104 143 164 T28DTR: .ASCIZ ‘Data Transferred On READ REVERSE Into A TAPE MARK’ : 
11251 112034 104 141 164 T28DTA: .ASCIZ ‘Data Compare Error, Data Read From Tape Not Equal To Written’ 
11252 112131 127 162 151 TST28ID: -ASCIZ ‘Write/Read Tape Mark‘ 
11253 EVEN 
11988 3 
11256 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
11257 sWRITE SUBSYSTEM MEMORY COMMAND 
11258 3 
11259 = 
11260 
11261 112156 T28REST: 
11262 112156 SAVREG sSAVE THE REGISTERS 
11263 112162 012701 110100 MOV #T28PACKET,R1 sSTART OF THE PACKET 
11264 112166 012721 100004 MOV #100004, (R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, 
11265 112172 012721 110110 MOV #T28DATA, (R1)+ sADDRESS OF CHARAISTICS DATA BLOCK 
11266 112176 005021 CLR (R1)+ sEXTENDED ADDRESS 
11267 112200 012721 000012 MOV #10.,(R1)+ :SIZE OF DATA BLOCK IN BYTES 
11268 112204 012721 110122 MOV #T28BFR,(R1)+ sADDRESS OF MESSAGE BUFFER 
11269 112210 005021 CLR (R1)+ 
11270 112212 012721 000024 MOV #20.,(R1)¢ sLENGTH OF MESSAGE BUFFER 
11271 112216 005021 CLR (R1)+ 
11272 112220 012711 000000 MOV #0,(R1) sSELECT DRIVE ZERO 
11273 112224 012702 000030 MOV #24. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
11274 112230 012762 177777 110122 64$: MOV #177777, T28BFR(R2) sALL ONES TO MESSAGE BUFFER 
11275 112236 005742 TST -(R2) sNEXT LOCATION 
11276 112240 020227 000000 CMP R2,40 sCHECK FOR END 
11277 112244 001371 BNE 64$ ;KEEP GOING UNTIL DONE 
11278 112246 000207 RTS PC sRETURN 
11279 
11280 
11281 112250 T28RT2: 
11282 112250 SAVREG SAVE THE REGISTERS 
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TEST 8: WRITE/READ TAPE MARK SEQ 0373 


co 
Ww 


110210 


#T28PK2,R1 


START OF THE PACKET 


1283 11 01 
11284 112260 012721 100006 #100006, (R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, 
11285 112264 012721 110230 MOV #T28BF2,(R1)+ zADDRESS OF DATA BLOCK 
11286 112270 005021 CLR (R1)+ sEXTENDED ADDRESS 
11287 112272 012721 000006 MOV #6.,(R1)+ :SIZE OF DATA BLOCK IN BYTES 
11288 112276 005021 CLR 1)+ 
11289 112300 012701 110230 MOV #T28BF2,R1 POINT TO DATA SEL AREA 
11290 112304 005021 CLR (R1)+ 
11291 112306 005011 CLR (R1) 
11292 112310 000207 RTS PC :RETURN 
11293 112312 T28RT3: 
11294 112312 SAVREG 
11295 112316 012701 110220 MOV #T28PK3,R1 3GET PACKET ADDRESS 
11296 112322 00502 CLR (R1)+ CLEAR COMMAND AREA 
11297 112324 00502 CLR (R1)+ CLEAR ADDRESS AREA 
11298 112326 005021 CLR (R1)+ CLEAR EXTENDED ADDRESS AREA 
11299 112330 005011 CLR (R1) :SIZE OF DATA TRANSFER 
11300 112332 000207 RTS P :RETURN 
11301 112334 ENDTST 
112334 L10130: 
112334 104401 TRAP CSETST 
11302 112336 ENDMOD 
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TEST 8: WRITE/READ TAPE MARK SEQ 0374 


} TITLE TSV6 = PARAMETER CODING 
12 
18 
19 112336 BGNMOD TSV6 
112336 TSV6:: 
AI 
8 -SBTTL HARDWARE PARAMETER CODING SECTION 
24 i+ 
25 ; THE HARDWARE PARAMETER CODING ayer iyer MACROS 
26 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
27 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
28 3; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
29 3; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
bt . : WITH THE OPERATOR. 
32 112336 BGNHRD 
2336 000010 -WORD L10134=-LSHARD/2 
33 2340 LSHARD:: 
34 2340 GPRMA HPM1,0,0,160010,177776, YES 7GET TSBA/TSDB REGISTER ADDRESS. 
2340 000031 WORD TSCODE 
2342 HPM1 
2 anne 
2 TSHILIM 
$3 ress ~2,0,0,776, YES :GET VECTOR ADDRESS. 
2 HPM2 
Lb Ag 
TSHILI 
HPM3, A" "o. 340,0,7, YES 3GET INTERRUP; PRIORITY. 


"DEVICE age 3 (TSBA/TSDB) ° 
“INTERRUPT VECTOR 
“INTERRUPT PRIORITY . 





| N 13 
| TSV6 = PARAMETER CODING MACRO M1113 25-MAY=-82 09:19 PAGE 156 
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SOFTWARE PARAMETER CODING SECTION SEQ 0375 
4 .SBTTL SOFTWARE PARAMETER CODING SECTION 
46 34+ 
47 : THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
48 : THAT AR ARE USED BY THE SUPERVISOR TO BUILD P=TABLES. THE 
49 : ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
50 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
51 + MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
32 : WITH THE OPERATOR. 
54 112470 ; BGNSFT 
112470 000093 .WORD L10135-L$SOFT/2 
112472 LSSOFT:: 
55 ; GPRML SPM1,0,-1. YES : GET TRANSPORT TEST FLAG. 
56 112472 GPRML SPM4.2.=1.YES : GET ITERATION CONTROL. 
112472 001130 .WORD TSCODE 
112474 112530 <WORD SPM4 
112476 177777 “WORD = 
57 : GPRMD SPM6,4,D,7777.0,7777.YES : GET LOCAL ERROR LIMIT 
58 5 GPRMD SPM7,6,D,7777,0,7777,YES ; GET GLOBAL ERROR LIMIT 
59 112500 ENDSFT 
EVEN 
112500 L10135: 
$ 
62 112500 105 116 101 SPM1: .ASCIZ ‘ENABLE TRANSPORT TESTS ' 
63 112530 111 116 110 SPM4:  .ASCIZ ‘INHIBIT ITERATIONS ' 
64 112560 120 105 122 SPM6: .ASCIZ ‘PER TEST ERROR LIMIT ' 
65 112610 120 105 122 SPM7: .ASCIZ ‘PER UNIT ERROR LIMIT ' 
66 “SBTTL PATCH AREA 
s 
69 : FINALLY A GENEROUS PATCH AREA. 
71 : AND AN ADJUSTMENT TO ACCOUNT FOR THE "‘LASTAD BIT7"* HACK 
72 : DESCRIBED IN ''SUPPRG.MEM' (FOR REV (). 
74 : 
a 112640 PATCH:: 
as 112640 .BLKW 32. 
80 113000 =. 137741 
82 113000 LASTAD :SET LAST USED ADDRESS. 
113000 000000 ‘WORD 0 
113002 000000 “WORD 0 
113004 LSLAST:: 
83 113004 ENDMOD 
84 000001 END 





a 
| 


SYMBOL T 
ADDSSR 012216 G 
000020 G 


BADDAT 003146 G 
BADSSR 015770 G 
BOVPCR= 177520 G 
BENBSW 002220 G 


BIE = 040000 
BITO = 000001 
BITOO = 000001 G 
BITO1 = 000002 G 
BITO2 = 000004 G 
BITO3 = 000010 G 
BITO4 = 000020 
BITOS = 000040 G 
BITO06 = 000100 G 
BITO7 = 000200 G 
1T08 = 000400 
BITO9 = 001000 G 
ITl «= 2 
BIT10 = 002000 G 
IT11 = 004000 G 
BIT12 = 010000 G 
BIT13 = 020000 G 
BIT14 = 040000 G 
BIT15 = 100000 G 
BIT2 = 000004 G 
BITS = 000010 G 
BITS = 000020 G 
BITS = 000040 G 
BIT6 = 000100 G 
BIT? = 000200 G 
BIT8 = 000400 
BIT9 = 001000 G 
= 000400 
BRINIT 004455 
BSELO = 
BSEL1 = 
CHKAMB 0161 
CHKMAN 020570 G 
CHKTSS 642: 
CKDROP 017272 
CKEMAX 01717. 
CKMSG 011450 G 
CKMSG2 011570 G 
CKRAM 011204 G 
CKRAM2 011314 G 
CMDPKT 021350 G 
CMPMEM 017750 
CONFIG 017340 
COUNT 002300 G 
CSRADD 002176 G 
TAB 003154 G 
CTABE 003166 G 
CTABM 003154 G 


CSAU_ = 000052 


22 
DEVCNT 002210 G 


DEVDRO 


F 
FORCER 
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HW = 000 
FSINIT= 000006 
SJMP = 000 
FSMOD = 000000 


SEG = 000 
FS$SOFT= 000005 
$SRV = 00001 
F$SUB = 00000 
F$SW = 00001 
FSTEST= 000001 
GDDAT 003150 
GERRMA 002164 
GETPAT 020264 


SYES = 00001 
HIADDR= 001400 
HOE = 100000 
HPM1 112360 
HPM2 112414 
HPM3 112440 
IBE = 010000 
IDU == 000040 
IER = 020000 
IFAULT 004254 


aan 


—_ 
5 gd 
3 
“ 
Aas 
BEANS 
AHLNOGSfSNON— 


x 
oad 
wD 
— 
“ 
OOS St St SS Ss SO VN 
RSS NNNNNNN NNN 
WNPIPINININPINININININININY 
— NNN 
NFALSNOS Nm 


ag 


KTON 
LERRMA 002162 


AAQAG 


oa 


SEQ 0376 
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SYMBOL TABLE SEQ 0377 
OE = 040000 G LSUNIT 002012 G L10071 055352 M8189 005643 PRBEXP 015560 
LOOPCN 002206 G L 002154 L10072 047424 NBA_ = 002000 PRBMSG oyases 
LOOPCO 015216 L10001 002166 L10073 050024 WPAS 66100 PRBREC 01556 
LOOPFL 003152 G L10002 005764 L10074 050500 NODEV 003104 G PRBTOT 015513 
= 10 G L10003 012134 L10075 051144 NOINIT 004333 PRBYTE 015212 G 
LSACP 002110 G L10004 012152 L10076 051704 NOINTR 004217 PRI = 002000 G 
LSAPT 002036 G L10005 012170 L10077 sageee NOITS 002160 G PRIADD 010250 
LSAU 022442 G L10006 012176 L10100 053164 020624 PRIAO 010320 
L$AUT 002070 G L10007 012214 L10101 053566 NOMEM 005456 PRIBXO 007702 G 
LSAUTO 022646 G L10010 012232 L10102 074674 NP.IR = 000200 PRIEQU 010150 
LSCCP 002106 G L10011 012256 L10103 056310 -L00= 000040 PRIPKT 007460 G 
LSCLEA 022726 G L10012 012330 L10104 057156 -OUT= 000100 PRIRAM 010156 
L$CO 002032 G L10013 012500 L10105 060050 NP.WRP= 000020 PRITAD 010364 
LSDEPO 002011 G L10014 013214 L10106 060776 SI 004150 PRITSS 006022 
LSDESC 003400 G L10015 014042 L10107 061554 NSINIT 004405 PRITO 010446 
LSDESP 002076 G L10016 014064 L10110 062416 L 004525 PRIT? 010511 
LSDEVP 002060 G L10017 015570 L10111 063270 NULCR 004526 PRIXOR 010032 G 
LSDISP 002124 G L10020 015576 L10112 064142 XM = 004000 PRIOO = 000000 G 
LSOLY 002116 G L10021 015604 L10113 065016 NXMFLG 003126 G PRIO1 = 009040 G 
LSOTP 002040 G L10022 015616 L10114 065672 XMHI 003132 G PRIO2 = 000100 G 
LSOTYP 002034 G L10023 015640 L10115 066542 XMLO_ 003130 G PRIO3 = 000140 G 
L$DU 022540 G L10024 015666 L10116 067474 NXMTST 021542 PRIO4 = 000200 G 
$OUT 002072 G L10025 016026 L10117 070504 NXR 003736 PRIOS = 000240 G 
LS$OVTY 003372 G L10026 016336 L10120 071064 NXRERR 005734 G PRI06 = 000300 
LSEF 002052 G L10030 022372 L10121 071540 XRX 003775 PRIO7 = 000340 G 
LSENVI 002044 G L10031 022536 L10122 104712 NXTU 022112 PRMESS 014332 
LSETP 002102 G L10032 022644 L10123 075316 OFL_ = 000100 PRMNO 002310 G 
LSEXP1 002046 G L10033 022724 L10124 076100 ONEFIL= 000000 PRMSGE 014642 G 
LSEXP4 002064 G L10034 022752 L10125 076722 OSAPTS= 000000 PRMSGO 015022 
LSEXPS 002066 G L10035 023214 L10126 077624 OSAU = 000001 PRMSG1 015067 
LSHARD 112340 G L10036 024650 L10127 101354 OSBGNR= 000001 PRMSG2 01 
LSHIME 002120 G L10037 027330 L10130 1123 OSBGNS= 000001 PROASC 014510 
LSHPCP 002016 G L10040 025256 L10131 105312 O$SDU = 000001 PRIASC 0 
LSHPTP 002022 G L10041 025600 L10132 105572 OSERRT= 000000 PST32W 003142 G 
002146 G L10042 026160 L10733 110044 OSGNSW= 000001 022374 
LSICP_ 002104 G L10043 034320 L10134 112360 = 000001 Pw.D11= 00002 
1 G L10044 027732 L10135 112 OSSETU= 000000 PW.D13= 000022 
2 G L10045 030602 MEMADD 014044 G PASRPT 022144 PwW.D22= 000020 
G L10046 031422 MEMCK 021366 G 12640 G PwW.NOP= 000000 
G L10047 031636 MENASC 020537 PATDAT 020320 PW.NO1= 000023 
G L10050 032070 MENERR 020464 PC.ERA= 002400 PW.RDE= 000024 
G L10051 032402 ENRES 0205 PC. IER= 002000 PW.RDR= 1 
G L10052 046434 MMVEC = 000250 PC.NOO= 001000 PW.RDS= 000005 
G L10053 034766 MSA.FR= 000006 PC.REL= 000000 PW.RFI= 000003 
G L10054 035546 MSA.NO= 000000 REW= 000400 Pw.WCT= 000006 
2G L10055 036322 MSA.NR= 000004 PKBCNT= 000006 Pw.WFI= 000004 
2G L10056 037024 MSA.VO= 0000 I = 000004 Pw. WFM= 000007 
G L10057 037470 MSGEXP 012234 G PK = 000002 Pw.WMI= 000010 
L10060 040124 MSGLOO 013154 G PKTADD 007644 PW.WNP= 000011 
L10061 040560 MSGSTA 012440 G PKTFRM 007606 PW.WTR= 000002 
L10062 041152 GS 014032 G PKTGET 012154 G P.ACK = 100000 
L10063 041570 MS.ATT= 000006 PKTMES 012200 G P.CMD = 000037 
L10064 042034 -EXT= 000200 PKTRAM 004743 G P.CONT= 000012 
L10065 042306 RSD= 000001 PKTSSR 012136 P.CVC = 04000 
L100 42542 MS.RSF= 000020 PN = 001000 G P.FMT = 000140 
L10067 043042 MS.RST= 000010 PRAMPK 014066 P.FORM= 000011 
L10070 043526 M8186 005552 PRASC 014613 P.GETS= 000017 
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SYMBOL TABLE SEQ 0378 
P.IE = 000200 SPM6 112560 TSREJ = 000006 TSSCLE= 010034 T22WRT 026350 
P.INIT= 000013 SPM7 112610 TSSDEF 006676 T$$OU = 010032 T23A 003134 G 
P.MODE= 007400 SRO = 177572 T = T$ = 010134 T23AM3 033210 
P.OPP = 020000 SRI = «177576 TSSRBI 003500 G TSSHW = 01000 238 003136 G 
P.POSI= 000010 SR = 177576 TSSR 505 TSSINI= 010030 T23BA_ = 033575 
P.READ= 000001 SR = 17251 TSSRH = 000003 G TSSMSG= 010025 238FR 032462 
P.SWB = 010000 SSR___ = 000200 TSSPRO= 010027 T238F2 032572 
P.WRIT= 000005 STATCO 0125 TSTBLK 002742 G TS$RPT= 010035 123880 032572 
P.WRTC= 000004 SVCGBL= 000000 TSTCNT 002204 G TS$SOF= 010135 T238S1 032573 
P.WRTS= 000006 SVCINS= 000000 TSTEND 017010 TS$SRV= 010026 T23CHK 034132 
Qvp 002174 G SVCSUB= 000001 TSTFLA 002304 G TS$SUB= 010133 T 032610 
RAMASC 014246 SVCTAG= 000000 TSTLOO 016546 G T$$SwW = 010001 T23DAT 032450 
RAMDAT 002232 G SVCTST= 0000 TSTPTR 002306 G ada 010130 T230SW 032460 
RAMERR 015600 G SSLSYM= 010000 TSTSET 016600 G 11 36 G T23EOT 032734 
RAMEXP 015620 G $0. 1DB= 000010 TST211 024474 T2 024652 G T23ET 64 
RAMFOR 010206 - 1FB= 000002 TST221 027137 T2.1 024702 T23 027376 
RAMSIZ 002272 G - 1FP= 000001 TST231 033736 T2.2 025274 T230FL 033256 
015606 G SO.ILD= 000020 TST241 046202 T2 8528 6 T23PAC 032440 
RCVHIA 002274 G - I1O0N= 000040 TST251 055150 T21TAM3 02435 T23PK2 032550 
RCVLOA 002276 G SO. IRD= 000100 TST261 074477 T21BFR 024154 T23PK3 032560 
RDERR 0052 - IRW= 000004 TST271_ 104513 T21BF2 024250 T23RES 033752 
RECMSG 002456 G $O.1SP= 000200 TST281 112131 T21BS0 024250 T23RNC 033135 
ECV 002224 G $1.1CE= 002000 TSV 002000 G T21BS1 024251 T23RSZ 032570 
REGSAV 020230 $1.1E0= 010000 TSV3 002166 G T21DAT 024140 T23RT2 034044 
RETERR 0053 $1.1FM= 001000 TSV4 021636 G T21DLY 024152 T23RTS 
RETRY 034176 $1. IHE= SV6 112336 G T210SW 4150 T23RWN 033066 
REWIND 011104 G $1.11D= 004000 TSV7 023536 G T21L00 023566 T23SSR 032614 
RMCHBE= 000167 $1.11R= 020000 TTIBFR= 177562 G T210FL 53 T2382 66 
RMCHEN= 000200 $1.12R= 040000 TTICSR= 177560 G T21PAC 024130 T2382 032574 
RMMSGB= 000215 $1.PAR= 100000 TTIVEC= 000060 G T21PK2 024240 T23S3 0032576 
RMMSGE= 0002 $2.ATI= 000010 TSARGC= 000003 T2TRES 024516 T23T™M 033012 
RMPKTB= 000201 -BTI= 000004 TSCODE= 001130 T21RT2 024606 T23TMP 00 
RMPKTE= 000210 -DIM= 000200 TSERRN= 001513 T21SSR 024256 T23VCK 22 
= 01 S2.1LW= 000100 TSEXCP= 000000 T2182 024252 032562 
RWPACK 011200 - INR= 000020 TSFLAG= 000040 T21S3_ 024254 032604 
SC = -OUT= 00 GMAN= 000000 T22AM3 026455 T23WOC 
SCE = = TSHILI= 000776 T22BFR 026242 T23WOD 033331 
SCHERR 00 TBLEND= 003052 G TSLAST= 000001 T22BF2 026340 T23WDR 
SCME 05011 TCOASC 006566 T$SLOLI= 000000 22880 026340 T23WRT 032602 
SDELAY 010750 TCOCOD 006766 TSLSYM= 010000 1228 026341 T23WSS 033 
SELASC 020532 1 031 TSLTNO= 000010 T22DAT 026230 045170 
SELDAT= TEMP2 003110 G TSNEST= 177777 22FOR 026354 T24 045522 
L2 = TERCLS= 00 TSNSO = 000000 T22L00 024702 T24BFR 0436 
SETMAP 017406 TESTNO= 000010 T$NS1 = 000005 T220FL 026555 T24BF2 043720 
T 022176 TEXASC 6525 TSNS2 = 000002 T22PAC 026220 T24B0T 044563 
SFFMSG 012172 G TFCASC 00662 TSPTNU= 000000 T22PK2 026330 T24BS0 043720 
SFHERR 003703 TIMEXP 015642 G TSSAVL= 177777 T22PO0S 026352 T248S1 043721 
SFIERR 003650 TIMSGO 5670 TSSEGL= 177777 026346 T24CON 043732 
SFIMSG 012124 G TINERR 012111 TSSUBN= 000003 T22RES 027172 T24DAT 043600 
SFPTBL 002156 G TMPBFR 002622 G TAGL= 1 T22RT2 027264 T24DLY 043736 
SIFLAG 003144 G T 16774 TSTAGN= 010136 T22RWI 026724 T24DSW 043610 
SIMSG 012056 156 G TSTEMP= 0000 T22SSR 026360 T24DTA 044630 
SKIPT 3370 TSBA = 000000 G TSTEST= 000010 T22S 026342 T24EOT 044716 
SOF INI 6064 G TSBAH = 000001 TSTM= 177777 T22S 026344 T24ILA 044312 
010556 G TSDB = 000000 TSTSTS= 000001 T22TM 026630 T24L0N 
Ss 1125 SDBH = 000001 G AU = 010031 T22VCK 026777 T24L00 034362 


12500 T T$$ 00 
SPM4 112530 TSFCOD 007326 TSSAUT= 010033 T22WLK 027052 T24LOP 045744 
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| SYMBOL TABLE SEQ 0379 
T24L00 044376 T25SSR 054004 T26wDC 073610 T27WOR 101550 1 034322 G 
T24LOR 044012 12582 053756 T26WDD 073520 T27WNG 101564 14.1 034362 
T24NEF 043740 12582 053762 T26WDE 072713 TO7WRF 104336 14.10 041606 
T24NXM 044151 T2583 053764 T26WDF 072521 T27WSS 103472 14.11 042052 
T240FL 045235 T25™M 054212 T26WNG 071756 T28BFR 110122 14.12 042324 
T246PAC 043570 125WB 053752 T26WSS 074011 T28BF2 110230 14.13 042560 
T24PBP 046026 T25w0C 055077 T27AM3 103057 T2880T 111067 14.14 043060 
T24PK2 043700 T25WDE 054065 T27BA 103417 T288S0 110230 14.2 035004 
24PK3 043710 T25WOR 053770 T27BFR 101432 T288S1 110231 14.3 035564 
24RB 043712 T25WNG 054355 T27BF2 101540 T2BCNT 110256 14.4 036340 
T24RES 046250 T25WNH 054530 T27B0T 102431 T28CNU 110260 14.5 037042 
T24RN 043726 T26AM3 073376 127BS0 101540 T28CON 110252 14.6 037506 
T24RNC 045115 T26BA 073736 127BS1 101541 T28DAT 110110 14.7 040142 
T24RT2 046 T26BFR 071622 T27CNT 101556 T2BDLY 110262 14.8 040576 
T24RT3 T268F2 071730 T27CNU 101560 T280SW 110120 14.9 041170 
T26B80T 072765 T27CON 101552 T28DTA 112034 15 6436 G 
T24SSR 044457 T26BS0 071730 T27DAT 101420 T28DTR 111752 15.1 046466 
12482 043716 126881 071731 T27DLY 101562 T2BIMV 110236 15.2 047442 
T2482 043722 T26CNT 071746 T27DSW 101430 T28L00 104750 15.3 050042 
T2483 043724 T26CNU 071750 T27DTA 106416 T2BL0Q 110644 15.4 050516 
T24™M 044773 T26DAT 071610 T27EOT 102601 T2B0FL 111260 15.5 051162 
T24TRL 046114 T26DLY 071754 T27LON 103561 T28PAC 110100 15.6 051722 
T24VCK 045447 T26DSwW 071620 T27L00 074736 128 110341 15.7 052662 
T24WB 043712 T26DTA 073032 T27LOP 103643 T28PK2 110210 15.8 053202 
T24WDC 045376 T26EOT 073120 T27L00 102225 T28PK3 110220 16 055354 G 
T24WDD 045310 T26LON 074100 T27LOR 102100 T28RB 110222 16.1 055414 
T24WDE 044511 T26L00 055414 TO7NEF 104101 T2BRDF 110424 16.10 065034 
T24WDF 044235 T26LOP 074162 T270FL 103126 T28RDG 110505 16.11 065710 
T24WDG 2 T26L00 072576 T27PAC 101410 T2BRES 112156 16.12 066560 
T24WOR 043730 T26LOR 072651 127 103725 T28RIB 110264 16.13 06751 
T24WSS 045573 T26NEF 072044 T27PK2 101520 T2BRN 110246 16.14 070522 
T25BFR 053652 T26NEQ 074420 T27PK3 101530 TOBRRM 111537 16.15 071102 
T25BF2 053760 T260FL 073445 127 101532 TOBRRN 111615 16.2 056326 
T25BNC 054440 T26PAC 071600 T27RDF 101652 T2BRRP 111676 16.3 057174 
T25B0T 054145 T26PBP 074244 T27RES 106534 T2BRT2 112250 16.4 060066 
125880 053760 T26PK2 071710 T27RN 101546 T2BRTS 112312 16.5 061014 
1258S1 053761 T26PK3 071720 T27RNC 103004 T2BRWN 111211 16.6 061572 
T25CNT T26RB. 071722 T27RRF 101721 T28SSR 110725 16.7 062434 
W2 053776 T26RDF 072126 T27RT2 104626 T2852 110226 16.8 063306 
T25CON 053772 T26RES 074510 T27RTS 104670 T2882 110232 16.9 064160 
T25DAT 26RN 071736 T27RWN 102735 T2853 110234 17 074676 G 
T25DLY 054002 T26RNC 073323 T27SC. 102016 T2BTM =. 111134 17.1 074736 
T25DSW 053650 T26RRF 072175 T27SCF 104177 T2B8TMK 111465 17.2 75334 
T26RRG 072272 T27SSR 102306 T2BVCK 111412 17.3 076116 
T25NEF 054613 T26RSZ 071752 12782 101536 T28W8 110288 17.4 076740 
T25NET 054301 T26RT2 074602 12782 101542 T28WDC 1113 17.5 077642 
T250FL 055024 T26RTS 0746446 12783 101544 T2BWDE 110776 18 104714 G 
T25PAC 0536 126 073254 T27TIM 102524 T2BWDF 110567 18.1 104750 
T25PK2 053740 T26SC 072367 T27™™ 102660 T26WOR 110250 18.2. 105330 
T25PK3 053750 T26SSR 072657 T27TRL 106013 T 027332 G 18.3 105610 
T25RB 053752 12682 071726 T27TSA 10454 T3BFLG 003140 G u = 000200 6 
T25RES 055166 12682 071732 T27VCK 103344 13.1 027376 UNITN 002172 G 
T25RIB 054673 12683 071734 127 101532 13.2 027750 = 0 
T25RN 053766 1261 073177 T27WDC 103271 13.3 030620 0041 
T25RT2 055260 T26TRL 074332 T27WDD 103201 13.4 031440 WAITF 016340 G 
T25RT3 055322 T26VCK 073663 T27WDE 102342 13:5 031654 WC. IFA= 000200 
T25RWN 054755 126WB 071722 T27WDF 102150 73.6 032106 WC. IFE= 000002 
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SYMBOL TABLE 
wC.1GO= 000001 WRTERR 005111 
WC.IRE= 000010 WRTMSG 005054 
- IRW= 000004 WSMBK 021360 G 

wC.10T= 000100 XFERAS 016030 
wWC.11T= 000040 XNXM 016466 
WC.1SR= 000020 XORBFO 007764 
WF .IED= 000010 010102 
WF .IER= 000004 XSTO = 000006 G 
WF .IHI= 000200 = 000010 
F.IRE= 000040 XST2 = 000012 G 
WF .IWF= 000020 TS = 000014 G 
WF.IWR= 000100 ST4 = 000016 
WF .I35R= 000002 XSOBOT= 000002 
WF .I4R= 000001 XSOEOT= 000001 
WRTCHR 010752 G XSOIE = 000040 

- ABS. 113004 000 

000000 001 
ERRORS DETECTED: 0 
31544 WORDS ( 124 see 


VIRTUAL MEMORY USED: 
DYNAMIC MEMORY: 2034 
ELAPSED TIME: 


6 WORDS ( 78 PAGES) 


XSOILA= tesa 


XCOMM 
XSALUA 000000 


"00:49: 
CVTSCAO, CVTSCAO/=SP=SVC/ML,TSVIC, TSV22C,, TSV3B8,1SV4, TSV7A, TSV6 
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XSFALS= 000040 
00 


X2.SPA= 035400 


X2.UNI= 000007 
X2.WCF= 002000 
x3 000010 


4 
X4.TSM= 020000 
X4.WRC= 000377 


